add device shares

[mTask.git] / miTask.icl

diff --git a/miTask.icl b/miTask.icl
index 85196eb..c0ee6f2 100644 (file)
--- a/miTask.icl
+++ b/miTask.icl
@@ -70,6 +70,7 @@ mTaskManager = (>>|) startupDevices $
                                        >>= \bc->(enterChoice "Choose Device" [ChooseFromDropdown \t->t.deviceName] d
                                                -&&- enterInformation "Timeout" []
                                        ) >>* [OnAction (Action "Send") (withValue $ Just o sendTaskToDevice task bc)]
+                                       >>| treturn []
                                ]
 
                process :: MTaskDevice (Shared Channels) -> Task ()