nnmrts/GaBuZoMeu
1
0
Fork 0
forked from bortzmeyer/GaBuZoMeu
Code Pull Requests Activity

Future equality function

Browse Source
This commit is contained in:
Stephane Bortzmeyer 2023-10-01 18:47:01 +02:00
parent fa372d98e4
commit 8a342ecf20
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Types.hs
View File

@ -15,7 +15,9 @@ type Extensions = [Extension]
type Grandfathered = String type Grandfathered = String
type Privateuse = [String] type Privateuse = [String]
data Tag = Tag Language Extlang Script Region Variants Extensions | GF Grandfathered | Priv Privateuse deriving (Show, Eq) data Tag = Tag Language Extlang Script Region Variants Extensions | GF Grandfathered | Priv Privateuse deriving (Show)
-- TODO: warning, Eq must -- Warning, Eq must be redefined because it needs to take into account
-- be redefined because it needs to take into account case-insensitivity and -- case-insensitivity and (maybe) canonicalization (see issue #10).
-- (maybe) canonicalization -- Complicated because Tag is not a string. Sopmething like:
-- instance Eq Tag where
-- a == b = (Language a) == (Language b) ...