refactoring: move Servant.Text to Servant.Utils.Text

This commit is contained in:
Sönke Hahn 2014-10-28 19:34:41 +08:00 committed by Alp Mestanogullari
parent e7711a3c17
commit 71de673df2
5 changed files with 6 additions and 6 deletions

View file

@ -18,7 +18,6 @@ library
Servant.Client Servant.Client
Servant.Docs Servant.Docs
Servant.Server Servant.Server
Servant.Text
Servant.API Servant.API
Servant.API.Capture Servant.API.Capture
Servant.API.Delete Servant.API.Delete
@ -30,6 +29,7 @@ library
Servant.API.RQBody Servant.API.RQBody
Servant.API.Sub Servant.API.Sub
Servant.API.Union Servant.API.Union
Servant.Utils.Text
-- other-modules: -- other-modules:
-- other-extensions: -- other-extensions:
build-depends: build-depends:

View file

@ -10,11 +10,11 @@ module Servant (
-- | For generating documentation for servant APIs. -- | For generating documentation for servant APIs.
module Servant.Docs, module Servant.Docs,
-- | Helper module -- | Helper module
module Servant.Text, module Servant.Utils.Text,
) where ) where
import Servant.API import Servant.API
import Servant.Client import Servant.Client
import Servant.Docs import Servant.Docs
import Servant.Server import Servant.Server
import Servant.Text import Servant.Utils.Text

View file

@ -14,7 +14,7 @@ import Servant.API.Sub
import Servant.Client import Servant.Client
import Servant.Docs import Servant.Docs
import Servant.Server import Servant.Server
import Servant.Text import Servant.Utils.Text
-- * Captures -- * Captures
data Capture sym a data Capture sym a

View file

@ -16,7 +16,7 @@ import Servant.API.Sub
import Servant.Client import Servant.Client
import Servant.Docs import Servant.Docs
import Servant.Server import Servant.Server
import Servant.Text import Servant.Utils.Text
-- * GET params support (i.e query string arguments) -- * GET params support (i.e query string arguments)
data GetParam sym a data GetParam sym a

View file

@ -1,7 +1,7 @@
{-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeSynonymInstances #-} {-# LANGUAGE TypeSynonymInstances #-}
module Servant.Text where module Servant.Utils.Text where
import Data.String.Conversions import Data.String.Conversions
import Data.Text import Data.Text