removing grabHpcPos, it only used in hpc-tracer, a tool that is now dead.
authorandy@galois.com <unknown>
Thu, 28 Jun 2007 17:02:08 +0000 (17:02 +0000)
committerandy@galois.com <unknown>
Thu, 28 Jun 2007 17:02:08 +0000 (17:02 +0000)
Trace/Hpc/Util.hs

index b3c6abe..e1885ca 100644 (file)
@@ -9,14 +9,10 @@ module Trace.Hpc.Util
        , fromHpcPos
        , toHpcPos
        , insideHpcPos
-       , grabHpcPos 
        , HpcHash(..)
        , Hash
        ) where
 
-#if __GLASGOW_HASKELL__ > 602
-import qualified Data.Map as Map
-#endif
 import Data.List(foldl')
 import Data.Char (ord)
 import Data.Word 
@@ -56,25 +52,6 @@ instance Read HpcPos where
          (l1,':':c1)     = span (/= ':') lhs0
          (l2,':':c2)     = span (/= ':') rhs0
 
-#if __GLASGOW_HASKELL__ > 602
--- turns \n into ' '
--- | grab's the text behind a HpcPos; 
-grabHpcPos :: Map.Map Int String -> HpcPos -> String
-grabHpcPos hsMap theSpan = 
-        case lns of
-          [ln] -> (take ((c2 - c1) + 1) $ drop (c1 - 1) ln)
-          _ -> let lns1 = drop (c1 -1) (head lns) : tail lns
-                    lns2 = init lns1 ++ [take (c2 + 1) (last lns1) ]
-                in foldl1 (\ xs ys -> xs ++ "\n" ++ ys) lns2
-  where (l1,c1,l2,c2) = fromHpcPos theSpan
-        lns = map (\ n -> case Map.lookup n hsMap of
-                          Just ln -> ln
-                          Nothing -> error $ "bad line number : " ++ show n
-                 ) [l1..l2]
-#else
-grabHpcPos hsMap theSpan = error "grabHpcPos not available for GHC <= 6.2"
-#endif
-
 ------------------------------------------------------------------------------
 
 -- Very simple Hash number generators