haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

improve parsing further

Browse Source
This commit is contained in:
Vincent Hanquez 2015-04-05 07:33:37 +01:00
parent d006d91811
commit f43d340fd2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
QA.hs
View File

@ -21,12 +21,12 @@ main = do
let mexts = readExtensions content let mexts = readExtensions content
case mexts of case mexts of
Nothing -> printError "failed to parsed extensions" Nothing -> printError "failed to parsed extensions"
Just (_, exts) -> qaExts content exts Just (_, exts) -> qaExts file content exts
qaExts content exts = do qaExts file content exts = do
putStrLn ("extensions : " ++ (intercalate ", " $ map show exts)) putStrLn ("extensions : " ++ (intercalate ", " $ map show exts))
let mode = defaultParseMode { extensions = exts } let mode = defaultParseMode { parseFilename = file, extensions = exts }
case parseModuleWithMode mode content of case parseModuleWithMode mode content of
ParseFailed srcLoc s -> printError ("failed to parse module: " ++ show srcLoc ++ " : " ++ s) ParseFailed srcLoc s -> printError ("failed to parse module: " ++ show srcLoc ++ " : " ++ s)