haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-01-19 10:41:57 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Adjust the threepenny-gui patch

Browse Source
This commit is contained in:
Michael Snoyman 2014-03-13 10:29:22 +02:00
parent 3f01c5199a
commit 5be63b1ab0
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
patching/patches/threepenny-gui-0.4.1.0.patch
View File

@ -1,6 +1,18 @@
diff -ru orig/src/Graphics/UI/Threepenny/Internal/Driver.hs new/src/Graphics/UI/Threepenny/Internal/Driver.hs
--- orig/src/Graphics/UI/Threepenny/Internal/Driver.hs 2014-03-13 10:29:00.049732639 +0200
+++ new/src/Graphics/UI/Threepenny/Internal/Driver.hs 2014-03-13 10:28:59.000000000 +0200
@@ -248,7 +248,7 @@
signal Session{..} = do
input <- getParam "signal"
let err = error $ "Unable to parse " ++ show input
- case JSON.decode . LBS.fromStrict =<< input of
+ case JSON.decode . LBS.fromChunks . return =<< input of
Just signal -> liftIO $ writeChan sSignals signal
Nothing -> err
diff -ru orig/src/Graphics/UI/Threepenny/Internal/Types.hs new/src/Graphics/UI/Threepenny/Internal/Types.hs 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 --- orig/src/Graphics/UI/Threepenny/Internal/Types.hs 2014-03-13 10:29:00.049732639 +0200
+++ new/src/Graphics/UI/Threepenny/Internal/Types.hs 2014-03-13 07:47:41.000000000 +0200 +++ new/src/Graphics/UI/Threepenny/Internal/Types.hs 2014-03-13 10:28:59.000000000 +0200
@@ -17,6 +17,7 @@ @@ -17,6 +17,7 @@
import Data.Map (Map) import Data.Map (Map)
import Data.String (fromString) import Data.String (fromString)
@ -22,8 +34,8 @@ diff -ru orig/src/Graphics/UI/Threepenny/Internal/Types.hs new/src/Graphics/UI/T
diff -ru orig/threepenny-gui.cabal new/threepenny-gui.cabal diff -ru orig/threepenny-gui.cabal new/threepenny-gui.cabal
--- orig/threepenny-gui.cabal 2014-03-13 07:47:41.605928005 +0200 --- orig/threepenny-gui.cabal 2014-03-13 10:29:00.057732639 +0200
+++ new/threepenny-gui.cabal 2014-03-13 07:47:41.000000000 +0200 +++ new/threepenny-gui.cabal 2014-03-13 10:28:59.000000000 +0200
@@ -92,7 +92,7 @@ @@ -92,7 +92,7 @@
cpp-options: -DREBUG cpp-options: -DREBUG
ghc-options: -O2 ghc-options: -O2