mirror of
https://github.com/commercialhaskell/stackage.git
synced 2026-01-15 00:38:29 +01:00
36 lines
1.5 KiB
Diff
36 lines
1.5 KiB
Diff
diff -ru orig/src/Graphics/UI/Threepenny/Internal/Types.hs new/src/Graphics/UI/Threepenny/Internal/Types.hs
|
|
--- orig/src/Graphics/UI/Threepenny/Internal/Types.hs 2014-03-13 07:47:41.597928004 +0200
|
|
+++ new/src/Graphics/UI/Threepenny/Internal/Types.hs 2014-03-13 07:47:41.000000000 +0200
|
|
@@ -17,6 +17,7 @@
|
|
import Data.Map (Map)
|
|
import Data.String (fromString)
|
|
import Data.Time
|
|
+import Data.Text.Encoding (encodeUtf8, decodeUtf8)
|
|
|
|
import Network.URI
|
|
import Data.Data
|
|
@@ -62,9 +63,9 @@
|
|
|
|
-- Marshalling ElementId
|
|
instance ToJSON ElementId where
|
|
- toJSON (ElementId o) = toJSON o
|
|
+ toJSON (ElementId o) = toJSON $ decodeUtf8 o
|
|
instance FromJSON ElementId where
|
|
- parseJSON (Object v) = ElementId <$> v .: "Element"
|
|
+ parseJSON (Object v) = (ElementId . encodeUtf8) <$> v .: "Element"
|
|
parseJSON _ = mzero
|
|
|
|
|
|
diff -ru orig/threepenny-gui.cabal new/threepenny-gui.cabal
|
|
--- orig/threepenny-gui.cabal 2014-03-13 07:47:41.605928005 +0200
|
|
+++ new/threepenny-gui.cabal 2014-03-13 07:47:41.000000000 +0200
|
|
@@ -92,7 +92,7 @@
|
|
cpp-options: -DREBUG
|
|
ghc-options: -O2
|
|
build-depends: base >= 4 && < 5
|
|
- ,aeson == 0.6.*
|
|
+ ,aeson >= 0.6
|
|
,attoparsec-enumerator == 0.3.*
|
|
,bytestring >= 0.9.2 && < 0.11
|
|
,containers >= 0.4.2 && < 0.6
|