From 9973aa0fa51669a0013df65ee3ce929c09ef741d Mon Sep 17 00:00:00 2001
From: Kei Hibino <ex8k.hibino@gmail.com>
Date: Mon, 27 Mar 2017 01:05:33 +0900
Subject: [PATCH] relational-query: drop internal ColumnSQL interfaces.

---
 .../Database/Relational/Query/Internal/SQL.hs | 20 -------------------
 1 file changed, 20 deletions(-)

diff --git a/relational-query/src/Database/Relational/Query/Internal/SQL.hs b/relational-query/src/Database/Relational/Query/Internal/SQL.hs
index ac480e15..0aaf78b1 100644
--- a/relational-query/src/Database/Relational/Query/Internal/SQL.hs
+++ b/relational-query/src/Database/Relational/Query/Internal/SQL.hs
@@ -16,8 +16,6 @@ module Database.Relational.Query.Internal.SQL (
   rowStringSQL, rowPlaceHolderStringSQL,
 
   rowConsStringSQL, listStringSQL,
-
-  ColumnSQL, columnSQL, columnSQL', showsColumnSQL,
   ) where
 
 import Language.SQL.Keyword (Keyword, word, wordShow, fold, (|*|), paren)
@@ -52,21 +50,3 @@ rowConsStringSQL =  paren . fold (|*|)
 -- | List String of SQL.
 listStringSQL :: [StringSQL] -> StringSQL
 listStringSQL =  paren . fold (|*|)
-
-
--- | Column SQL string type
-type ColumnSQL = StringSQL
-
--- | 'ColumnSQL' from string
-columnSQL :: String -> ColumnSQL
-columnSQL =  columnSQL' . stringSQL
-
--- | 'ColumnSQL' from 'StringSQL'
-columnSQL' :: StringSQL -> ColumnSQL
-columnSQL' = id
-
--- | StringSQL from ColumnSQL
-showsColumnSQL :: ColumnSQL -> StringSQL
-showsColumnSQL = id
-
-{-# DEPRECATED ColumnSQL, columnSQL, columnSQL', showsColumnSQL "ColumnSQL type is deprecated. Use StringSQL type synonym." #-}