mirrors/IHaskell
1
0
Fork 0
mirror of https://github.com/IHaskell/IHaskell.git synced 2025-04-16 11:26:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Remove DisplayData show

Browse Source
This commit is contained in:
Tom McLaughlin 2015-10-26 11:47:13 -07:00
parent 3e9677ccab
commit cb37ce4cb5
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ipython-kernel/src/IHaskell/IPython/Types.hs
View File

@ -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
-- because of the way the evaluator is structured. See how `displayExpr` is computed.
instance Show DisplayData where
show (DisplayData PlainText t) = "DisplayData PlainText (" ++ show t ++ ")"
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 ++ ")"
show _ = "DisplayData"
-- Allow DisplayData serialization
instance Serialize Text where
put str = put (Text.encodeUtf8 str)