Ormolu formatted.

This commit is contained in:
Paul Johnson 2022-04-11 08:25:39 +01:00
parent c6ecccdefd
commit 0c336ba826

View File

@ -35,8 +35,12 @@ resolveName pwd = do
files <- listDirectory pwd
when ("--help" `elem` args || "-h" `elem` args) $ do
progName <- getProgName
hPutStrLn stderr $ "Usage: " <> progName <> " [ --cabal | --stack ]\n\n\
\If neither argument is given then " <> progName <> " will infer the type by\n\
hPutStrLn stderr $
"Usage: " <> progName
<> " [ --cabal | --stack ]\n\n\
\If neither argument is given then "
<> progName
<> " will infer the type by\n\
\looking for dist-newstyle, .stack-work, cabal.project and stack.yaml in that order."
exitSuccess
let fileNames = map takeFileName files