diff --git a/servant/src/Servant/API/Times.hs b/servant/src/Servant/API/Times.hs index 96523bfc..2f8e508d 100644 --- a/servant/src/Servant/API/Times.hs +++ b/servant/src/Servant/API/Times.hs @@ -13,6 +13,9 @@ module Servant.API.Times , getFormat , renderTime , parseTime + , ISO8601Date + , ISO8601DateTime + , ISO8601DateTimeZ ) where import Data.Typeable (Typeable) @@ -27,6 +30,11 @@ import Data.Proxy import Control.Monad ((>=>)) import Control.Arrow (first) + +type ISO8601Date = "%Y-%m-%d" +type ISO8601DateTime = "%Y-%m-%dT%H:%M:%S" +type ISO8601DateTimeZ = "%Y-%m-%dT%H:%M:%S%z" + -- | A wrapper around a time type which can be parsed/rendered to with `format', -- as specified in 'Data.Time.Format'. --