merge

09f23ace · Adam Vogt · 79280458 · 09f23ace
Commit 09f23ace authored Jan 03, 2014 by Adam Vogt
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

Hspec.hs Hspec.hs +1 -1

No files found.
--- a/Hspec.hs
+++ b/Hspec.hs
@@ -34,7 +34,7 @@ is string blockType = do
 eval string = do
  outputAccum <- newIORef []
-  let publish _ displayDatas = modifyIORef outputAccum (displayDatas :)
+  let publish final displayDatas = when final $ modifyIORef outputAccum (displayDatas :)
  getTemporaryDirectory >>= setCurrentDirectory
  let state :: KernelState
      state = mempty { getLintStatus = LintOff }