From c573e45c6537d01a4beab1bd16106e0eebc292e6 Mon Sep 17 00:00:00 2001
From: Ante Kegalj <akegalj@gmail.com>
Date: Tue, 19 Jul 2016 14:06:48 +0200
Subject: [PATCH] Add pux/psc bug workaround
 (https://github.com/alexmingoia/purescript-pux/pull/58)

---
 block-explorer/src/Main.purs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/block-explorer/src/Main.purs b/block-explorer/src/Main.purs
index 1e55a065..23456dd9 100644
--- a/block-explorer/src/Main.purs
+++ b/block-explorer/src/Main.purs
@@ -21,6 +21,8 @@ import Pux.Router                  (sampleUrl)
 import Signal                      ((~>))
 import Signal.Channel              (channel, CHANNEL, subscribe)
 
+import Unsafe.Coerce               (unsafeCoerce)
+
 type AppEffects = (console :: CONSOLE, ws :: C.WEBSOCKET, dom :: DOM)
 
 -- | App configuration
@@ -36,7 +38,7 @@ config state = do
     let wsSignal = subscribe wsInput ~> SocketAction
     pure
         { initialState: state { socket = Just socket }
-        , update: update
+        , update: unsafeCoerce update
         , view: view
         , inputs: [wsSignal]
         }