khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-11-29 06:37:03 +03:00
Code Issues Projects Releases Wiki Activity

Remove unused definitions.

Browse Source
This commit is contained in:
Kei Hibino 2014-05-13 22:36:46 +09:00
parent 827e72a813
commit b7c8f97304
1 changed files with 1 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
sql-words/src/Language/SQL/Keyword/Type.hs
View File

@ -12,11 +12,7 @@ module Language.SQL.Keyword.Type (
Keyword (..),
word,
wordShow, unwordsSQL,
unsafeString, integer,
stringMap
wordShow, unwordsSQL
) where
import Data.Monoid (mconcat)
@ -26,15 +22,3 @@ import Language.SQL.Keyword.Internal.Type (Keyword (..), word, wordShow)
-- | Concatinate keywords into 'String' like unwords
unwordsSQL :: [Keyword] -> String
unwordsSQL = wordShow . mconcat
-- | Make SQL string expression. No escape logic, so this is unsafe function.
unsafeString :: String -> Keyword
unsafeString = word . ('\'' :) . (++ "'")
-- | Make SQL integer expression
integer :: (Integral a, Show a) => a -> Keyword
integer = word . show
-- | Map 'String' function into 'Keyword' function
stringMap :: (String -> String) -> Keyword -> Keyword
stringMap f = word . f . wordShow