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
......@@ -13,7 +13,6 @@ import Data.String.Here
import IHaskell.Display
instance IHaskellDisplay Value where
display renderable = return $ Display [plain json, html dom]
display renderable = return $ Display [plain json]
where
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