Commit d9a607fb authored by Andrew Gibiansky's avatar Andrew Gibiansky

Do not autohighlight JSON anymore, just format it.

parent 905450e1
{-# LANGUAGE TypeSynonymInstances, QuasiQuotes #-} {-# LANGUAGE TypeSynonymInstances #-}
module IHaskell.Display.Aeson () where module IHaskell.Display.Aeson () where
...@@ -13,7 +13,6 @@ import Data.String.Here ...@@ -13,7 +13,6 @@ import Data.String.Here
import IHaskell.Display import IHaskell.Display
instance IHaskellDisplay Value where instance IHaskellDisplay Value where
display renderable = return $ Display [plain json, html dom] display renderable = return $ Display [plain json]
where where
json = T.unpack $ E.decodeUtf8 $ LBS.toStrict $ encodePretty renderable json = T.unpack $ E.decodeUtf8 $ LBS.toStrict $ encodePretty renderable
dom = [i|<div class="highlight-code" id="javascript">${json}</div>|]
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