Add tooltips

1 files changed, 12 insertions, 3 deletions

diff --git a/src/client/elm/Update.elm b/src/client/elm/Update.elm
index 23e0789..817a191 100644
--- a/src/client/elm/Update.elm
+++ b/src/client/elm/Update.elm
@@ -28,7 +28,11 @@ import SignIn.Update as SignInUpdate
 import Dialog
 import Dialog.Update as DialogUpdate
 
+import Tooltip
+
 import Utils.Http exposing (errorKey)
+import Utils.Cmd exposing ((:>))
+import Utils.Tuple as Tuple
 
 update : Msg -> Model -> (Model, Cmd Msg)
 update msg model =
@@ -69,9 +73,14 @@ update msg model =
       )
 
     Dialog dialogMsg ->
-      let (newDialog, command) = Dialog.update DialogUpdate.update dialogMsg model.dialog.model model.dialog
-      in  ( { model | dialog = newDialog }
-          , command
+      Dialog.update DialogUpdate.update dialogMsg model.dialog.model model.dialog
+        |> Tuple.mapFst (\dialog -> { model | dialog = dialog })
+        :> update (Tooltip Tooltip.HideMessage)
+
+    Tooltip tooltipMsg ->
+      let (newTooltip, command) = Tooltip.update tooltipMsg model.tooltip
+      in  ( { model | tooltip = newTooltip }
+          , Cmd.map Tooltip command
           )
 
 applySignIn : Model -> SignInMsg.Msg -> Model