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

Add Eq instances.

Browse Source
This commit is contained in:
Kei Hibino 2015-01-06 18:17:25 +09:00
parent f5179816da
commit 7676774782
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -37,6 +37,9 @@ showDString (DString f) = f []
isEmptyDString :: DString -> Bool
isEmptyDString = null . showDString
instance Eq DString where
x == y = showDString x == showDString y
instance Show DString where
show = showDString
@ -139,3 +142,6 @@ wordShow :: Keyword -> String
wordShow = d where
d (Sequence s) = showDString s
d w = show w
instance Eq Keyword where
x == y = wordShow x == wordShow y