Adding show instances to CommInfo and EvaluationResult

cbdfd38c · Stian Håklev · eed50a26 · cbdfd38c
Commit cbdfd38c authored 10 years ago by Stian Håklev
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

Types.hs src/IHaskell/Types.hs +2 -1

No files found.
--- a/src/IHaskell/Types.hs
+++ b/src/IHaskell/Types.hs
@@ -206,7 +206,7 @@ data LintStatus
     | LintOff
     deriving (Eq, Show)

-data CommInfo = CommInfo Widget UUID String
+data CommInfo = CommInfo Widget UUID String deriving Show

 -- | Output of evaluation.
 data EvaluationResult =
@@ -220,3 +220,4 @@ data EvaluationResult =
    pagerOut :: String,       -- ^ Text to display in the IPython pager.
    startComms :: [CommInfo]  -- ^ Comms to start.
  }
+  deriving Show