mirror of
https://github.com/IHaskell/IHaskell.git
synced 2025-04-16 11:26:08 +00:00
commit
de20c69617
@ -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)
|
||||
|
Loading…
x
Reference in New Issue
Block a user