From 1b8a1b9d426ff68a17301ade63cb8275e6f4f5c3 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Sun, 10 Mar 2013 14:04:45 +0200 Subject: [PATCH] Removed unneeded conditional --- yesod-core/Yesod/Core/Json.hs | 6 ------ 1 file changed, 6 deletions(-) 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)