Merge pull request #328 from cblp/patch-1

fix test
This commit is contained in:
Andrew Gibiansky 2015-01-03 16:44:43 -05:00
commit de20c69617

View File

@ -59,7 +59,7 @@ eval string = do
getTemporaryDirectory >>= setCurrentDirectory
let state = defaultKernelState { getLintStatus = LintOff }
interpret False $ Eval.evaluate state string publish
interpret libdir False $ Eval.evaluate state string publish
out <- readIORef outputAccum
pagerOut <- readIORef pagerAccum
return (reverse out, unlines $ reverse pagerOut)