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

ipython-kernel: support custom mimetypes

Browse Source
This commit is contained in:
Vaibhav Sagar 2019-08-16 13:06:24 -04:00
parent d98969dce8
commit cb4ac95d6d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -779,6 +779,7 @@ data MimeType = PlainText
| MimeVega
| MimeVegalite
| MimeVdom
| MimeCustom Text
deriving (Eq, Typeable, Generic)
-- Extract the plain text from a list of displays.
@ -806,6 +807,7 @@ instance Show MimeType where
show MimeVega = "application/vnd.vega.v2+json"
show MimeVegalite = "application/vnd.vegalite.v2+json"
show MimeVdom = "application/vdom.v1+json"
show (MimeCustom custom) = Text.unpack custom
instance Read MimeType where
readsPrec _ "text/plain" = [(PlainText, "")]
@ -822,7 +824,7 @@ instance Read MimeType where
readsPrec _ "application/vnd.vega.v2+json" = [(MimeVega, "")]
readsPrec _ "application/vnd.vegalite.v1+json" = [(MimeVegalite, "")]
readsPrec _ "application/vdom.v1+json" = [(MimeVdom, "")]
readsPrec _ _ = []
readsPrec _ t = [(MimeCustom (Text.pack t), "")]
-- | Convert a MIME type and value into a JSON dictionary pair.
displayDataToJson :: DisplayData -> (Text, Value)