From df83b634006c699cfa1e921bf74ce951a906a62f Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 24 Jun 2018 22:02:00 +0200
Subject: Use date input type

---
 client/src/View/SignIn.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'client/src/View/SignIn.hs')

diff --git a/client/src/View/SignIn.hs b/client/src/View/SignIn.hs
index 912aea2..21d0fcc 100644
--- a/client/src/View/SignIn.hs
+++ b/client/src/View/SignIn.hs
@@ -30,8 +30,10 @@ view signInMessage =
       rec
         input <- Component.input $ InputIn
           { _inputIn_reset = R.ffilter Either.isRight signInResult
+          , _inputIn_hasResetButton = True
           , _inputIn_label = Msg.get Msg.SignIn_EmailLabel
           , _inputIn_initialValue = ""
+          , _inputIn_inputType = "text"
           }
 
         button <- Component.button $
-- 
cgit v1.2.3