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

View File

@ -88,8 +88,12 @@ pPrintModuleAndCheck
-> GHC.ParsedSource
-> IO ([LayoutError], TextL.Text)
pPrintModuleAndCheck conf anns parsedModule = do
let ghcOptions = conf & _conf_forward & _options_ghc & runIdentity
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
Left{} -> [LayoutErrorOutputCheck]
Right{} -> []