+ { let orig_file =
+ case ml_hs_file mod_loc of
+ Just file -> file
+ Nothing -> error "can not find the original file during hpc trans"
+
+ ; if "boot" `isSuffixOf` orig_file then return (binds, 0)
+ else addCoverageTicksToBinds2 dflags mod orig_file binds
+ }
+
+addCoverageTicksToBinds2 dflags mod orig_file binds = do