Fix error printing to stdout->stderr

pull/3/head
Lennart Spitzner 2016-08-12 14:25:09 +02:00
parent 0229a50785
commit fb1aeb5739
1 changed files with 2 additions and 2 deletions

View File

@ -166,9 +166,9 @@ readMergePersConfig path shouldCreate conf = do
fileConf <- case Data.Yaml.decodeEither contents of
Left e -> do
liftIO
$ putStrLn
$ putStrErrLn
$ "error reading in brittany config from " ++ path ++ ":"
liftIO $ putStrLn e
liftIO $ putStrErrLn e
mzero
Right x -> return x
return $ fileConf Semigroup.<> conf