diff --git a/yesod-core/Yesod/Core/Json.hs b/yesod-core/Yesod/Core/Json.hs index 42f26777..d4e3eaa8 100644 --- a/yesod-core/Yesod/Core/Json.hs +++ b/yesod-core/Yesod/Core/Json.hs @@ -1,5 +1,4 @@ {-# LANGUAGE TypeSynonymInstances, OverloadedStrings #-} -{-# LANGUAGE CPP #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Yesod.Core.Json ( -- * Convert from a JSON value @@ -90,11 +89,6 @@ parseJsonBody_ = do J.Error s -> invalidArgs [pack s] J.Success a -> return a -#if !MIN_VERSION_shakespeare_js(1, 0, 2) -instance ToJavascript J.Value where - toJavascript = fromLazyText . decodeUtf8 . JE.encode -#endif - -- | Convert a list of pairs to an 'J.Object'. object :: J.ToJSON a => [(Text, a)] -> J.Value object = J.object . map (second J.toJSON)