hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Fix output validity check extensions missing

pull/3/head
Lennart Spitzner 2016-08-12 17:05:50 +02:00
parent a99869690c
commit 59cee6fb0e
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Language/Haskell/Brittany.hs
View File

@ -88,8 +88,12 @@ pPrintModuleAndCheck
-> GHC.ParsedSource -> GHC.ParsedSource
-> IO ([LayoutError], TextL.Text) -> IO ([LayoutError], TextL.Text)
pPrintModuleAndCheck conf anns parsedModule = do pPrintModuleAndCheck conf anns parsedModule = do
let ghcOptions = conf & _conf_forward & _options_ghc & runIdentity
let (errs, output) = pPrintModule conf anns parsedModule let (errs, output) = pPrintModule conf anns parsedModule
parseResult <- ExactPrint.Parsers.parseModuleFromString "output" (TextL.unpack output) parseResult <- parseModuleFromString ghcOptions
"output"
(\_ -> return $ Right ())
(TextL.unpack output)
let errs' = errs ++ case parseResult of let errs' = errs ++ case parseResult of
Left{} -> [LayoutErrorOutputCheck] Left{} -> [LayoutErrorOutputCheck]
Right{} -> [] Right{} -> []