@@ -0,0 +1,35 @@
1+diff -ru orig/src/Graphics/UI/Threepenny/Internal/Types.hs new/src/Graphics/UI/Threepenny/Internal/Types.hs
2+--- orig/src/Graphics/UI/Threepenny/Internal/Types.hs 2014-03-13 07:47:41.597928004 +0200
3++++ new/src/Graphics/UI/Threepenny/Internal/Types.hs 2014-03-13 07:47:41.000000000 +0200
4+@@ -17,6 +17,7 @@
5+ import Data.Map (Map)
6+ import Data.String (fromString)
7+ import Data.Time
8++import Data.Text.Encoding (encodeUtf8, decodeUtf8)
9+
10+ import Network.URI
11+ import Data.Data
12+@@ -62,9 +63,9 @@
13+
14+ -- Marshalling ElementId
15+ instance ToJSON ElementId where
16+- toJSON (ElementId o) = toJSON o
17++ toJSON (ElementId o) = toJSON $ decodeUtf8 o
18+ instance FromJSON ElementId where
19+- parseJSON (Object v) = ElementId <$> v .: "Element"
20++ parseJSON (Object v) = (ElementId . encodeUtf8) <$> v .: "Element"
21+ parseJSON _ = mzero
22+
23+
24+diff -ru orig/threepenny-gui.cabal new/threepenny-gui.cabal
25+--- orig/threepenny-gui.cabal 2014-03-13 07:47:41.605928005 +0200
26++++ new/threepenny-gui.cabal 2014-03-13 07:47:41.000000000 +0200
27+@@ -92,7 +92,7 @@
28+ cpp-options: -DREBUG
29+ ghc-options: -O2
30+ build-depends: base >= 4 && < 5
31+- ,aeson == 0.6.*
32++ ,aeson >= 0.6
33+ ,attoparsec-enumerator == 0.3.*
34+ ,bytestring >= 0.9.2 && < 0.11
35+ ,containers >= 0.4.2 && < 0.6