@@ -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
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
1diff -ru orig/src/Graphics/UI/Threepenny/Internal/Types.hs new/src/Graphics/UI/Threepenny/Internal/Types.hs
13diff -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
14+--- orig/src/Graphics/UI/Threepenny/Internal/Types.hs 2014-03-13 10:29:00.049732639 +0200
3−+++ new/src/Graphics/UI/Threepenny/Internal/Types.hs 2014-03-13 07:47:41.000000000 +0200
15++++ new/src/Graphics/UI/Threepenny/Internal/Types.hs 2014-03-13 10:28:59.000000000 +0200
4@@ -17,6 +17,7 @@
16@@ -17,6 +17,7 @@
5 import Data.Map (Map)
17 import Data.Map (Map)
6 import Data.String (fromString)
18 import Data.String (fromString)
@@ -22,8 +34,8 @@ diff -ru orig/src/Graphics/UI/Threepenny/Internal/Types.hs new/src/Graphics/UI/T
24diff -ru orig/threepenny-gui.cabal new/threepenny-gui.cabal
36diff -ru orig/threepenny-gui.cabal new/threepenny-gui.cabal
25−--- orig/threepenny-gui.cabal 2014-03-13 07:47:41.605928005 +0200
37+--- orig/threepenny-gui.cabal 2014-03-13 10:29:00.057732639 +0200
26−+++ new/threepenny-gui.cabal 2014-03-13 07:47:41.000000000 +0200
38++++ new/threepenny-gui.cabal 2014-03-13 10:28:59.000000000 +0200
27@@ -92,7 +92,7 @@
39@@ -92,7 +92,7 @@
28 cpp-options: -DREBUG
40 cpp-options: -DREBUG
29 ghc-options: -O2
41 ghc-options: -O2