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

Renamed.

Browse Source
This commit is contained in:
Kei Hibino 2013-05-30 19:12:27 +09:00
parent 4338e2dfaa
commit e9b4f894c4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14,7 +14,7 @@ module Language.SQL.Keyword.Type (
word,
wordShow, unwordsSQL,
string, integer,
unsafeString, integer,
stringMap
) where
@ -82,8 +82,8 @@ unwordsSQL :: [Keyword] -> String
unwordsSQL = unwords . map wordShow
-- | Make SQL string expression. No escape logic, so this is unsafe function.
string :: String -> Keyword
string = Sequence . ('\'' :) . (++ "'")
unsafeString :: String -> Keyword
unsafeString = Sequence . ('\'' :) . (++ "'")
-- | Make SQL integer expression
integer :: (Integral a, Show a) => a -> Keyword