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

check file for "check".

Browse Source
This commit is contained in:
Kazu Yamamoto 2010-05-06 13:14:17 +09:00
parent ae89d284ad
commit 85fdba4ffa
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
GHCMod.hs
View File

@ -8,6 +8,7 @@ import Lang
import List import List
import Prelude hiding (catch) import Prelude hiding (catch)
import System.Console.GetOpt import System.Console.GetOpt
import System.Directory
import System.Environment (getArgs) import System.Environment (getArgs)
import Types import Types
@ -49,7 +50,12 @@ main = flip catch handler $ do
res <- case head cmdArg of res <- case head cmdArg of
"browse" -> concat <$> mapM (browseModule opt) (tail cmdArg) "browse" -> concat <$> mapM (browseModule opt) (tail cmdArg)
"list" -> listModules opt "list" -> listModules opt
"check" -> checkSyntax opt (cmdArg !! 1) "check" -> do
let file = cmdArg !! 1
exist <- doesFileExist file
if exist
then checkSyntax opt file
else return ""
"lang" -> listLanguages opt "lang" -> listLanguages opt
"boot" -> do "boot" -> do
mods <- listModules opt mods <- listModules opt