diff --git a/hplayground.cabal b/hplayground.cabal
--- a/hplayground.cabal
+++ b/hplayground.cabal
@@ -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
diff --git a/src/Haste/HPlay/View.hs b/src/Haste/HPlay/View.hs
--- a/src/Haste/HPlay/View.hs
+++ b/src/Haste/HPlay/View.hs
@@ -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
+
 
 
diff --git a/src/Haste/HPlay/WebSockets.hs b/src/Haste/HPlay/WebSockets.hs
--- a/src/Haste/HPlay/WebSockets.hs
+++ b/src/Haste/HPlay/WebSockets.hs
@@ -109,7 +109,6 @@
     where
     news :: URL
          -> WSComputation
-    --     -> WSOnError
          -> IO ()
     news= ffi $  "(function(url,f){\
              \var ws = new WebSocket(url);\