Commit 1fa7fba2 authored by Malcolm.Wallace's avatar Malcolm.Wallace
Browse files

fix indentation in do block for H'98 compatibility

parent 71875446
......@@ -107,10 +107,10 @@ tryGetPersistBuildConfig = do
e <- doesFileExist localBuildInfoFile
let dieMsg = "error reading " ++ localBuildInfoFile ++ "; run \"setup configure\" command?\n"
if (not e) then return $ Left dieMsg else do
str <- readFile localBuildInfoFile
case reads str of
[(bi,_)] -> return $ Right bi
_ -> return $ Left dieMsg
str <- readFile localBuildInfoFile
case reads str of
[(bi,_)] -> return $ Right bi
_ -> return $ Left dieMsg
getPersistBuildConfig :: IO LocalBuildInfo
getPersistBuildConfig = do
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment