Omit output syntax test for fix-point tests
parent
14884be8df
commit
acbaba0782
|
@ -154,7 +154,9 @@ defaultTestConfig = Config
|
|||
, _lconfig_altChooser = coerce $ AltChooserBoundedSearch 3
|
||||
, _lconfig_columnAlignMode = coerce (ColumnAlignModeMajority 0.7)
|
||||
}
|
||||
, _conf_errorHandling = _conf_errorHandling staticDefaultConfig
|
||||
, _conf_errorHandling = (_conf_errorHandling staticDefaultConfig)
|
||||
{ _econf_omit_output_valid_check = coerce True
|
||||
}
|
||||
, _conf_forward = ForwardOptions
|
||||
{ _options_ghc = Identity []
|
||||
}
|
||||
|
|
|
@ -115,7 +115,10 @@ parsePrintModule conf filename input = do
|
|||
case parseResult of
|
||||
Left (_ , s ) -> return $ Left $ "parsing error: " ++ s
|
||||
Right (anns, parsedModule) -> do
|
||||
(errs, ltext) <- pPrintModuleAndCheck conf anns parsedModule
|
||||
let omitCheck = conf & _conf_errorHandling .> _econf_omit_output_valid_check .> confUnpack
|
||||
(errs, ltext) <- if omitCheck
|
||||
then return $ pPrintModule conf anns parsedModule
|
||||
else pPrintModuleAndCheck conf anns parsedModule
|
||||
return $ if null errs
|
||||
then Right $ TextL.toStrict $ ltext
|
||||
else
|
||||
|
|
Loading…
Reference in New Issue