Skip to content

G
gargantext-ihaskell
Commit cb37ce4c authored by Tom McLaughlin's avatar Tom McLaughlin
Browse files
Options

Remove DisplayData show

parent 3e9677cc
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 6 deletions
ipython-kernel/src/IHaskell/IPython/Types.hs
View file @ cb37ce4c
...@@ -506,12 +506,8 @@ data DisplayData = DisplayData MimeType Text ...@@ -506,12 +506,8 @@ data DisplayData = DisplayData MimeType Text
-- We can't print the actual data, otherwise this will be printed every time it gets computed -- We can't print the actual data, otherwise this will be printed every time it gets computed
-- because of the way the evaluator is structured. See how `displayExpr` is computed. -- because of the way the evaluator is structured. See how `displayExpr` is computed.
instance Show DisplayData where instance Show DisplayData where
show (DisplayData PlainText t) = "DisplayData PlainText (" ++ show t ++ ")" show _ = "DisplayData"
show (DisplayData (MimePng w h) t) = "DisplayData (Png " ++ show (w, h) ++ ")"
show (DisplayData MimeSvg t) = "DisplayData (Svg)"
show (DisplayData (MimeJpg w h) t) = "DisplayData (Jpg " ++ show (w, h) ++ ")"
show (DisplayData MimeHtml t) = "DisplayData (Html " ++ show t ++ ")"
show (DisplayData typ t) = "DisplayData (unknown: " ++ show typ ++ ")"
-- Allow DisplayData serialization -- Allow DisplayData serialization
instance Serialize Text where instance Serialize Text where
put str = put (Text.encodeUtf8 str) put str = put (Text.encodeUtf8 str)
......
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