Fix compilation with GHC < 7.6 v0.6.0.3
authorHerbert Valerio Riedel <hvr@gnu.org>
Tue, 3 May 2016 15:34:31 +0000 (17:34 +0200)
committerHerbert Valerio Riedel <hvr@gnu.org>
Tue, 3 May 2016 16:28:06 +0000 (18:28 +0200)
Trace/Hpc/Mix.hs

index 2066284..709e70c 100644 (file)
@@ -26,18 +26,14 @@ import Data.List
 import Data.Maybe (catMaybes, fromMaybe)
 import Data.Time (UTCTime)
 import Data.Tree
-
-import System.FilePath
-
 #if MIN_VERSION_base(4,6,0)
 import Text.Read (readMaybe)
 #else
-readMaybe :: Read a => String -> Maybe a
-readMaybe s = case reads s of
-  [(x, s')] | all isSpace s' -> Just x
-  _                          -> Nothing
+import Data.Char (isSpace)
 #endif
 
+import System.FilePath
+
 -- a module index records the attributes of each tick-box that has
 -- been introduced in that module, accessed by tick-number position
 -- in the list
@@ -45,6 +41,13 @@ readMaybe s = case reads s of
 import Trace.Hpc.Util (HpcPos, insideHpcPos, Hash, HpcHash(..), catchIO)
 import Trace.Hpc.Tix
 
+#if !MIN_VERSION_base(4,6,0)
+readMaybe :: Read a => String -> Maybe a
+readMaybe s = case reads s of
+  [(x, s')] | all isSpace s' -> Just x
+  _                          -> Nothing
+#endif
+
 -- | 'Mix' is the information about a modules static properties, like
 -- location of Tix's in a file.
 --