$ \ f -> f { funTotals = True }
-------------------------------------------------------------------------------
+readMixWithFlags :: Flags -> TixModule -> IO Mix
readMixWithFlags flags mod = readMix [ dir ++ "/" ++ hpcDir flags
| dir <- srcDirs flags
] mod