From 71de673df2578eab45d8b90af87855563ce870e7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=B6nke=20Hahn?= <soenke.hahn@zalora.com>
Date: Tue, 28 Oct 2014 19:34:41 +0800
Subject: [PATCH] refactoring: move Servant.Text to Servant.Utils.Text

---
 servant.cabal                   | 2 +-
 src/Servant.hs                  | 4 ++--
 src/Servant/API/Capture.hs      | 2 +-
 src/Servant/API/GetParam.hs     | 2 +-
 src/Servant/{ => Utils}/Text.hs | 2 +-
 5 files changed, 6 insertions(+), 6 deletions(-)
 rename src/Servant/{ => Utils}/Text.hs (96%)

diff --git a/servant.cabal b/servant.cabal
index 3ccee0c8..0aaf5855 100644
--- a/servant.cabal
+++ b/servant.cabal
@@ -18,7 +18,6 @@ library
     Servant.Client
     Servant.Docs
     Servant.Server
-    Servant.Text
     Servant.API
     Servant.API.Capture
     Servant.API.Delete
@@ -30,6 +29,7 @@ library
     Servant.API.RQBody
     Servant.API.Sub
     Servant.API.Union
+    Servant.Utils.Text
   -- other-modules:       
   -- other-extensions:    
   build-depends:
diff --git a/src/Servant.hs b/src/Servant.hs
index 78659eb7..3ee1907e 100644
--- a/src/Servant.hs
+++ b/src/Servant.hs
@@ -10,11 +10,11 @@ module Servant (
   -- | For generating documentation for servant APIs.
   module Servant.Docs,
   -- | Helper module
-  module Servant.Text,
+  module Servant.Utils.Text,
   ) where
 
 import Servant.API
 import Servant.Client
 import Servant.Docs
 import Servant.Server
-import Servant.Text
+import Servant.Utils.Text
diff --git a/src/Servant/API/Capture.hs b/src/Servant/API/Capture.hs
index ed28ccb4..a3e5ffea 100644
--- a/src/Servant/API/Capture.hs
+++ b/src/Servant/API/Capture.hs
@@ -14,7 +14,7 @@ import Servant.API.Sub
 import Servant.Client
 import Servant.Docs
 import Servant.Server
-import Servant.Text
+import Servant.Utils.Text
 
 -- * Captures
 data Capture sym a
diff --git a/src/Servant/API/GetParam.hs b/src/Servant/API/GetParam.hs
index 82a10f35..cfed053c 100644
--- a/src/Servant/API/GetParam.hs
+++ b/src/Servant/API/GetParam.hs
@@ -16,7 +16,7 @@ import Servant.API.Sub
 import Servant.Client
 import Servant.Docs
 import Servant.Server
-import Servant.Text
+import Servant.Utils.Text
 
 -- * GET params support (i.e query string arguments)
 data GetParam sym a
diff --git a/src/Servant/Text.hs b/src/Servant/Utils/Text.hs
similarity index 96%
rename from src/Servant/Text.hs
rename to src/Servant/Utils/Text.hs
index b4fa8283..907627e2 100644
--- a/src/Servant/Text.hs
+++ b/src/Servant/Utils/Text.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE TypeSynonymInstances #-}
-module Servant.Text where
+module Servant.Utils.Text where
 
 import Data.String.Conversions
 import Data.Text