Commit cbdfd38c authored by Stian Håklev's avatar Stian Håklev

Adding show instances to CommInfo and EvaluationResult

parent eed50a26
...@@ -206,7 +206,7 @@ data LintStatus ...@@ -206,7 +206,7 @@ data LintStatus
| LintOff | LintOff
deriving (Eq, Show) deriving (Eq, Show)
data CommInfo = CommInfo Widget UUID String data CommInfo = CommInfo Widget UUID String deriving Show
-- | Output of evaluation. -- | Output of evaluation.
data EvaluationResult = data EvaluationResult =
...@@ -220,3 +220,4 @@ data EvaluationResult = ...@@ -220,3 +220,4 @@ data EvaluationResult =
pagerOut :: String, -- ^ Text to display in the IPython pager. pagerOut :: String, -- ^ Text to display in the IPython pager.
startComms :: [CommInfo] -- ^ Comms to start. startComms :: [CommInfo] -- ^ Comms to start.
} }
deriving Show
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment