From d500468b8d591f3f5512debb9f5d1139393482f5 Mon Sep 17 00:00:00 2001
From: Ilya Smelkov <triplepointfive@gmail.com>
Date: Mon, 13 Jan 2014 23:27:22 +0400
Subject: [PATCH] Change doubleField type from text to number

---
 yesod-form/Yesod/Form/Fields.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/yesod-form/Yesod/Form/Fields.hs b/yesod-form/Yesod/Form/Fields.hs
index b2a47c69..ea0c85c5 100644
--- a/yesod-form/Yesod/Form/Fields.hs
+++ b/yesod-form/Yesod/Form/Fields.hs
@@ -121,7 +121,7 @@ doubleField = Field
 
     , fieldView = \theId name attrs val isReq -> toWidget [hamlet|
 $newline never
-<input id="#{theId}" name="#{name}" *{attrs} type="text" :isReq:required="" value="#{showVal val}">
+<input id="#{theId}" name="#{name}" *{attrs} type="number" :isReq:required="" value="#{showVal val}">
 |]
     , fieldEnctype = UrlEncoded
     }