hplayground 0.1.2.5 → 0.1.2.6

raw patch · 3 files changed

+7/−5 lines, 3 files

Files

hplayground.cabal +3/−2
src/Haste/HPlay/View.hs +4/−2
src/Haste/HPlay/WebSockets.hs +0/−1

hplayground.cabal view

@@ -1,5 +1,5 @@ name: hplayground
-version: 0.1.2.5 
+version: 0.1.2.6 
 cabal-version: >=1.8
 build-type: Simple
 license: BSD3
@@ -27,7 +27,8 @@ 
     if flag(haste-inst)
         build-depends: base >4.0 && <5, transformers -any, containers -any,
-                       data-default -any, monads-tf -any, haste-lib -any, haste-perch  >= 0.1.0.5
+                       data-default -any, monads-tf -any, haste-lib -any,+                       haste-perch  >= 0.1.0.5
         exposed: True
         buildable: True
     else

src/Haste/HPlay/View.hs view

@@ -1364,14 +1364,16 @@                              -> JSString    -- POST data
                              -> JSFun (Maybe JSString -> IO ())
                              -> IO ()
+foreign import ccall jsSetCB :: Elem -> JSString -> JSFun a -> IO Bool #else
-ajaxReq= undefined
+ajaxReq= undefined+jsSetCB= undefined
 #endif
  listen :: JSType event => Elem -> event -> a -> IO Bool
 listen e event f= jsSetCB e (toJSString event) (mkCallback $! f)
 
 
-foreign import ccall jsSetCB :: Elem -> JSString -> JSFun a -> IO Bool
+

src/Haste/HPlay/WebSockets.hs view

@@ -109,7 +109,6 @@     where
     news :: URL
          -> WSComputation
-    --     -> WSOnError
          -> IO ()
     news= ffi $  "(function(url,f){\
              \var ws = new WebSocket(url);\