fix: properly evaluating after chaning a value in a modal

lunarcast · Jul 15, 2020 · a00af31 · a00af31
1 parent 696771e
commit a00af31
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/src/Component/Editor.purs b/src/Component/Editor.purs
@@ -49,7 +49,6 @@ import Lunarbox.Component.Modal as Modal
 import Lunarbox.Component.Switch (switch)
 import Lunarbox.Component.Utils (className, maybeElement, whenElem)
 import Lunarbox.Config (Config, _autosaveInterval)
-import Lunarbox.Control.Monad.Effect (printString)
 import Lunarbox.Data.Class.GraphRep (toGraph)
 import Lunarbox.Data.Dataflow.Expression.Lint as LintError
 import Lunarbox.Data.Dataflow.Native.Prelude (loadPrelude)
@@ -314,7 +313,6 @@ component =
     RemoveConnection id index -> do
       modify_ $ removeConnection $ Tuple id index
       void updateAll
-      printString $ "Removed " <> show id <> " w index " <> show index
       handleAction Rerender
     ChangeInputCount function amount -> do
       modify_ $ set (_atInputCount function) $ Just amount

diff --git a/src/Component/Foreign/Modal.purs b/src/Component/Foreign/Modal.purs
@@ -109,7 +109,6 @@ component =
     CloseModal value -> do
       id <- gets _.id
       liftEffect $ closeModal id
-      raise $ ClosedWith value
     Bubble a -> raise $ BubbledAction a
 
   handleQuery ::
@@ -126,7 +125,8 @@ component =
       { id, onClose } <- get
       void
         $ fork do
-            void $ liftAff $ map toAff $ liftEffect $ showModal id
+            promise <- liftEffect $ showModal id
+            void $ liftAff $ toAff promise
             raise $ ClosedWith onClose
       pure $ Just return
     Close a -> do