Make tests compile cleanly

094150d4 · Sumit Sahrawat · 6bf25335 · 094150d4
Commit 094150d4 authored Jun 10, 2015 by Sumit Sahrawat
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

Hspec.hs Hspec.hs +2 -1

No files found.
--- a/Hspec.hs
+++ b/Hspec.hs
@@ -70,10 +70,11 @@ eval string = do
        FinalResult outs page [] -> do
          modifyIORef outputAccum (outs :)
          modifyIORef pagerAccum (page :)
+      noWidgetHandling s _ = return s

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