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

Simplify.

Browse Source
This commit is contained in:
Kei Hibino 2014-05-13 16:47:44 +09:00
parent 5a77e6d5c6
commit 16dbf2403d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,12 +19,13 @@ module Language.SQL.Keyword.Type (
stringMap stringMap
) where ) where
import Data.Monoid (mconcat)
import Language.SQL.Keyword.Internal.Type (Keyword (..), word, wordShow) import Language.SQL.Keyword.Internal.Type (Keyword (..), word, wordShow)
-- | Concatinate keywords into 'String' like unwords -- | Concatinate keywords into 'String' like unwords
unwordsSQL :: [Keyword] -> String unwordsSQL :: [Keyword] -> String
unwordsSQL = unwords . map wordShow unwordsSQL = wordShow . mconcat
-- | Make SQL string expression. No escape logic, so this is unsafe function. -- | Make SQL string expression. No escape logic, so this is unsafe function.
unsafeString :: String -> Keyword unsafeString :: String -> Keyword