From b9d589056792e0f01d7aed32af1bd17d2ae35c40 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Fri, 13 Jul 2012 18:37:42 +0300
Subject: [PATCH] Add a type signature

---
 yesod-form/Yesod/Form/Fields.hs | 1 +
 yesod-form/test/main.hs         | 1 +
 2 files changed, 2 insertions(+)

diff --git a/yesod-form/Yesod/Form/Fields.hs b/yesod-form/Yesod/Form/Fields.hs
index 8845f13d..dffe8f94 100644
--- a/yesod-form/Yesod/Form/Fields.hs
+++ b/yesod-form/Yesod/Form/Fields.hs
@@ -278,6 +278,7 @@ timeParser = do
         if i < 0 || i >= 24
             then fail $ show $ MsgInvalidHour $ pack xy
             else return i
+    minsec :: (Num a, Read a, Ord a) => (Text -> FormMessage) -> Parser a
     minsec msg = do
         x <- digit
         y <- digit <|> fail (show $ msg $ pack [x])
diff --git a/yesod-form/test/main.hs b/yesod-form/test/main.hs
index 5cbde19f..8d02f1e9 100644
--- a/yesod-form/test/main.hs
+++ b/yesod-form/test/main.hs
@@ -24,6 +24,7 @@ main = hspec $
         , ("1:00:01", Right $ TimeOfDay 1 0 1)
         , ("1:00:02 AM", Right $ TimeOfDay 1 0 2)
         , ("1:00:04 am", Right $ TimeOfDay 1 0 4)
+        , ("1:00:05 am", Right $ read "01:00:05")
         , ("1:00:64 am", Left $ MsgInvalidSecond "64")
         , ("1:00:4 am", Left $ MsgInvalidSecond "4")
         , ("0:00", Right $ TimeOfDay 0 0 0)