khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2025-01-07 13:46:41 +03:00
Code Issues Projects Releases Wiki Activity

relational-query: drop internal ColumnSQL interfaces.

Browse Source
This commit is contained in:
Kei Hibino 2017-03-27 01:05:33 +09:00
parent 2d6910cd75
commit 9973aa0fa5
1 changed files with 0 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
relational-query/src/Database/Relational/Query/Internal/SQL.hs
View File

@ -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." #-}