Field bangs

chrisdone-archive · Jan 11, 2014 · 577fe2f · 577fe2f
1 parent 4ce674f
commit 577fe2f
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/TryHaskell.hs b/src/TryHaskell.hs
@@ -34,9 +34,9 @@ import           System.IO (stderr, hPutStrLn)
 import           System.Process.Text.Lazy
 
 data EvalResult
-  = ErrorResult Text
-  | SuccessResult (Text,Text,Text) [Text]
-  | GetInputResult [Text]
+  = ErrorResult !Text
+  | SuccessResult !(Text,Text,Text) ![Text]
+  | GetInputResult ![Text]
   deriving (Show)
 
 -- | Start a web server.