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

Update haddock.

Browse Source
This commit is contained in:
Kei Hibino 2014-05-12 18:14:38 +09:00
parent 0344d94343
commit 472765d66a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -100,9 +100,11 @@ data Keyword = SELECT | ALL | DISTINCT | ON
-}
-- | Wrap 'DString' into 'Keyword'
fromDString :: DString -> Keyword
fromDString = Sequence
-- | Unwrap 'Keyword' into 'DString'
toDString :: Keyword -> DString
toDString = d where
d (Sequence ds) = ds