Add pux/psc bug workaround (alexmingoia/purescript-pux#58)

input-output-hk · Jul 19, 2016 · c573e45 · c573e45
1 parent 1127c9e
commit c573e45
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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]
         }