@@ -1,6 +1,18 @@
1+diff -ru orig/src/Graphics/UI/Threepenny/Internal/Driver.hs new/src/Graphics/UI/Threepenny/Internal/Driver.hs
2+--- orig/src/Graphics/UI/Threepenny/Internal/Driver.hs 2014-03-13 10:29:00.049732639 +0200
3++++ new/src/Graphics/UI/Threepenny/Internal/Driver.hs 2014-03-13 10:28:59.000000000 +0200
4+@@ -248,7 +248,7 @@
5+ signal Session{..} = do
6+ input <- getParam "signal"
7+ let err = error $ "Unable to parse " ++ show input
8+- case JSON.decode . LBS.fromStrict =<< input of
9++ case JSON.decode . LBS.fromChunks . return =<< input of
10+ Just signal -> liftIO $ writeChan sSignals signal
11+ Nothing -> err
12+
113diff -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
14+--- orig/src/Graphics/UI/Threepenny/Internal/Types.hs 2014-03-13 10:29:00.049732639 +0200
15++++ new/src/Graphics/UI/Threepenny/Internal/Types.hs 2014-03-13 10:28:59.000000000 +0200
416@@ -17,6 +17,7 @@
517 import Data.Map (Map)
618 import Data.String (fromString)
@@ -22,8 +34,8 @@ diff -ru orig/src/Graphics/UI/Threepenny/Internal/Types.hs new/src/Graphics/UI/T
2234
2335
2436diff -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
37+--- orig/threepenny-gui.cabal 2014-03-13 10:29:00.057732639 +0200
38++++ new/threepenny-gui.cabal 2014-03-13 10:28:59.000000000 +0200
2739@@ -92,7 +92,7 @@
2840 cpp-options: -DREBUG
2941 ghc-options: -O2