Fix error printing to stdout->stderr
parent
0229a50785
commit
fb1aeb5739
|
@ -166,9 +166,9 @@ readMergePersConfig path shouldCreate conf = do
|
||||||
fileConf <- case Data.Yaml.decodeEither contents of
|
fileConf <- case Data.Yaml.decodeEither contents of
|
||||||
Left e -> do
|
Left e -> do
|
||||||
liftIO
|
liftIO
|
||||||
$ putStrLn
|
$ putStrErrLn
|
||||||
$ "error reading in brittany config from " ++ path ++ ":"
|
$ "error reading in brittany config from " ++ path ++ ":"
|
||||||
liftIO $ putStrLn e
|
liftIO $ putStrErrLn e
|
||||||
mzero
|
mzero
|
||||||
Right x -> return x
|
Right x -> return x
|
||||||
return $ fileConf Semigroup.<> conf
|
return $ fileConf Semigroup.<> conf
|
||||||
|
|
Loading…
Reference in New Issue