@@ -231,9 +231,9 @@ makeIO = Make . ErrorT . fmap (either (Left . show) Right) . tryIOError
231231instance P.MonadMake Make where
232232 getTimestamp path = makeIO $ do
233233 exists <- doesFileExist path
234− case exists of
235− True -> Just <$> getModificationTime path
236− False -> return Nothing
234+ if exists
235+ then Just <$> getModificationTime path
236+ else return Nothing
237237 readTextFile path = makeIO $ U.readFile path
238238 writeTextFile path text = makeIO $ do
239239 mkdirp path
@@ -302,7 +302,7 @@ handleDeclaration value = do
302302 case e of
303303 Left err -> PSCI $ outputStrLn err
304304 Right _ -> do
305− psciIO $ writeFile indexFile $ "require('$PSCI').main();"
305+ psciIO $ writeFile indexFile "require('$PSCI').main();"
306306 process <- psciIO findNodeProcess
307307 result <- psciIO $ traverse (\node -> readProcessWithExitCode node [indexFile] "") process
308308 case result of
@@ -472,7 +472,7 @@ handleCommand Reset = do
472472 files <- psciImportedFilenames <$> PSCI (lift get)
473473 modulesOrFirstError <- psciIO $ loadAllModules files
474474 case modulesOrFirstError of
475− Left err -> psciIO $ putStrLn (show err) >> exitFailure
475+ Left err -> psciIO $ print err >> exitFailure
476476 Right modules -> PSCI . lift $ put (PSCiState files defaultImports modules [])
477477handleCommand (TypeOf val) = handleTypeOf val
478478handleCommand (KindOf typ) = handleKindOf typ
@@ -513,7 +513,7 @@ loop singleLineMode files = do
513513 config <- loadUserConfig
514514 modulesOrFirstError <- loadAllModules files
515515 case modulesOrFirstError of
516− Left err -> putStrLn (show err) >> exitFailure
516+ Left err -> print err >> exitFailure
517517 Right modules -> do
518518 historyFilename <- getHistoryFilename
519519 let settings = defaultSettings { historyFile = Just historyFilename }