X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhpc%2FHpcReport.hs;h=8f063f83006887a4d94a40b59fb047887264aab9;hb=fdf1cd0399158308769fcb2ab7e46e215a68d865;hp=2c502f4241b751d2e832d8c48d9068d14326d8d2;hpb=11d36d9f0256a3a3ef2934a776924f7c90afb6de;p=ghc-hetmet.git diff --git a/utils/hpc/HpcReport.hs b/utils/hpc/HpcReport.hs index 2c502f4..8f063f8 100644 --- a/utils/hpc/HpcReport.hs +++ b/utils/hpc/HpcReport.hs @@ -13,7 +13,7 @@ import HpcFlags import Trace.Hpc.Mix import Trace.Hpc.Tix import Control.Monad hiding (guard) -import qualified Data.Set as Set +import qualified HpcSet as Set notExpecting :: String -> a notExpecting s = error ("not expecting "++s)