Merge pull request #53 from cryogenian/datetime-query-fix

query datetimepickers when input type is _not_ supported
slamdata · Feb 28, 2018 · 55878b8 · 55878b8
2 parents 6f48c7b + 43611a2
commit 55878b8
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Text/Markdown/SlamDown/Halogen/Component.purs b/src/Text/Markdown/SlamDown/Halogen/Component.purs
@@ -159,11 +159,11 @@ updatePickers :: ∀ m v a
   → DSL v m Unit
 updatePickers {inputTypeSupported} _ label = case _ of
   SD.TextBox t → case t of
-    SD.DateTime _ (Compose (Just (Identity v))) | inputTypeSupported IT.DateTimeLocal →
+    SD.DateTime _ (Compose (Just (Identity v))) | not inputTypeSupported IT.DateTimeLocal →
       void (H.query' cpDateTimePicker label $ setValue $ Just $ Right v)
-    SD.Time _ (Compose (Just (Identity v))) | inputTypeSupported IT.DateTimeLocal →
+    SD.Time _ (Compose (Just (Identity v))) | not inputTypeSupported IT.DateTimeLocal →
       void (H.query' cpTimePicker label $ setValue $ Just $ Right v)
-    SD.Date (Compose (Just (Identity v))) | inputTypeSupported IT.DateTimeLocal →
+    SD.Date (Compose (Just (Identity v))) | not inputTypeSupported IT.DateTimeLocal →
       void (H.query' cpDatePicker label $ setValue $ Just $ Right v)
     _ → pure unit
   _ → pure unit