Avi-D-coder/implicit-hie
1
1
Fork 0
mirror of https://github.com/Avi-D-coder/implicit-hie.git synced 2024-10-05 21:07:22 +03:00
Code Issues Projects Releases Wiki Activity

Ormolu formatted.

Browse Source
This commit is contained in:
Paul Johnson 2022-04-11 08:25:39 +01:00
parent c6ecccdefd
commit 0c336ba826
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
app/Main.hs
View File

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