hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[Optparse] Browse, lint interactive commands

Browse Source
This commit is contained in:
Nikolay Yakimov 2015-12-10 00:40:37 +03:00
parent cdaf586941
commit 80f8e0bb99
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/GHCMod.hs
View File

@ -153,7 +153,8 @@ legacyInteractiveLoop symdbreq world = do
res <- flip gcatches interactiveHandlers $ case dropWhileEnd isSpace cmd of res <- flip gcatches interactiveHandlers $ case dropWhileEnd isSpace cmd of
"check" -> checkSyntax [arg] "check" -> checkSyntax [arg]
"find" -> do "lint" -> lint defaultLintOpts arg
"find" -> do
db <- getDb symdbreq >>= checkDb symdbreq db <- getDb symdbreq >>= checkDb symdbreq
lookupSymbol arg db lookupSymbol arg db
@ -166,6 +167,7 @@ legacyInteractiveLoop symdbreq world = do
"refine" -> locArgs' refine args "refine" -> locArgs' refine args
"boot" -> boot "boot" -> boot
"browse" -> concat <$> browse defaultBrowseOpts `mapM` args
"map-file" -> liftIO getFileSourceFromStdin "map-file" -> liftIO getFileSourceFromStdin
>>= loadMappedFileSource arg >>= loadMappedFileSource arg