Using 'reads' instead of 'read' in Simple.Configure.getPersistBuildCo…

…nfig
gentoo-haskell · May 30, 2005 · 70f9550 · 70f9550
1 parent 45512b1
commit 70f9550
Showing 1 changed file with 3 additions and 8 deletions.
diff --git a/Distribution/Simple/Configure.hs b/Distribution/Simple/Configure.hs
@@ -110,14 +110,9 @@ getPersistBuildConfig = do
   let dieMsg = "error reading " ++ localBuildInfoFile ++ "; run \"setup configure\" command?\n"
   when (not e) (die dieMsg)
   str <- readFile localBuildInfoFile
-  let bi = read str
-#ifndef __NHC__
-  evaluate bi `catch` \_ -> 
-	die dieMsg
-#else
--- FIXME: Is there anything we can do here? DeepSeq?
-#endif
-  return bi
+  case reads str of
+    [(bi,_)] -> return bi
+    _        -> die dieMsg
 
 writePersistBuildConfig :: LocalBuildInfo -> IO ()
 writePersistBuildConfig lbi = do