Always return file system

chrisdone-archive · Jan 11, 2014 · ec87526 · ec87526
1 parent 6509afa
commit ec87526
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/TryHaskell.hs b/src/TryHaskell.hs
@@ -178,7 +178,7 @@ muevalIO e is fs =
             return
               (case result' of
                  Left err -> ErrorResult err
-                 Right r -> SuccessResult r mempty mempty)
+                 Right r -> SuccessResult r mempty fs)
        Right (_,_,readMay . T.unpack -> Just r) ->
          ioResult e (bimap (second oconvert) (second oconvert) r)
        _ -> do putStrLn (show result)