No default async IO

ajnsit · Jan 15, 2018 · 3df03de · 3df03de
1 parent 28e452c
commit 3df03de
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 2 deletions.
diff --git a/concur-react/src/Concur/React/Run.hs b/concur-react/src/Concur/React/Run.hs
@@ -30,5 +30,4 @@ runWidget (Widget w) root = go w
         Free (Suspend io) -> liftIO io >>= \ws -> do
           html <- mkReactParent (unsafeCoerce ("div" :: JSString)) <$> (bakeAttrs []) <*> (bakeReactHTML (view ws))
           renderReactDOM root html
-          liftIO $ fromMaybe (return ()) $ runIO ws
           liftIO (atomically $ fromMaybe (Free $ Suspend $ return ws) <$> cont ws) >>= go
diff --git a/concur-vdom/src/Concur/VDOM/Run.hs b/concur-vdom/src/Concur/VDOM/Run.hs
@@ -45,5 +45,4 @@ runWidgetLoading (Widget w) root loading = do
         Pure a -> liftIO (putStrLn "WARNING: Application exited: This may have been unintentional!") >> return a
         Free (Suspend io) -> liftIO io >>= \ws -> do
           void $ diff mnt (E.div () $ view ws) >>= patch mnt
-          liftIO $ fromMaybe (return ()) $ runIO ws
           liftIO (atomically $ fromMaybe (Free $ Suspend $ return ws) <$> cont ws) >>= go mnt