diff --git a/servant-server/test/Servant/ServerSpec.hs b/servant-server/test/Servant/ServerSpec.hs index 8bd049e8..121fdacb 100644 --- a/servant-server/test/Servant/ServerSpec.hs +++ b/servant-server/test/Servant/ServerSpec.hs @@ -295,7 +295,7 @@ captureDateTimeServer = return . show captureTimeSpec :: Spec captureTimeSpec = do - describe "Servant.API.Times(CaptureTime)" $ do + describe "Servant.API.Time(CaptureTime)" $ do with (return (serve captureTimeApi (captureDateServer :<|> captureDateTimeServer))) $ do it "can capture parts of the 'pathInfo' (date only)" $ do diff --git a/servant/servant.cabal b/servant/servant.cabal index 4d929245..ddb23d6c 100644 --- a/servant/servant.cabal +++ b/servant/servant.cabal @@ -43,7 +43,7 @@ library Servant.API.ReqBody Servant.API.ResponseHeaders Servant.API.Sub - Servant.API.Times + Servant.API.Time Servant.API.Vault Servant.API.Verbs Servant.API.WithNamedContext diff --git a/servant/src/Servant/API.hs b/servant/src/Servant/API.hs index bf0e102f..64f341f4 100644 --- a/servant/src/Servant/API.hs +++ b/servant/src/Servant/API.hs @@ -25,7 +25,7 @@ module Servant.API ( -- | Access the location for arbitrary data to be shared by applications and middleware module Servant.API.WithNamedContext, -- | Access context entries in combinators in servant-server - module Servant.API.Times, + module Servant.API.Time, -- | Capturing dates and times in URLs and params with specified formats. -- * Actual endpoints, distinguished by HTTP method @@ -83,7 +83,7 @@ import Servant.API.ResponseHeaders (AddHeader (addHeader), HList (..), Headers (..), getHeadersHList, getResponse) import Servant.API.Sub ((:>)) -import Servant.API.Times (FTime(..), getFormat, renderFTime, parseFTime) +import Servant.API.Time (FTime(..), getFormat, renderFTime, parseFTime) import Servant.API.Vault (Vault) import Servant.API.Verbs (PostCreated, Delete, DeleteAccepted, DeleteNoContent, diff --git a/servant/src/Servant/API/Times.hs b/servant/src/Servant/API/Time.hs similarity index 99% rename from servant/src/Servant/API/Times.hs rename to servant/src/Servant/API/Time.hs index 431414a9..9a6c6a0c 100644 --- a/servant/src/Servant/API/Times.hs +++ b/servant/src/Servant/API/Time.hs @@ -7,7 +7,7 @@ {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE ScopedTypeVariables #-} -module Servant.API.Times +module Servant.API.Time ( FTime(..) , toFormatProxy , getFormat