forked from bortzmeyer/GaBuZoMeu
fix comments field
This commit is contained in:
parent
8a342ecf20
commit
cb8ef11d1f
@ -67,7 +67,7 @@ recordFactory r =
|
||||
(lookup "Macrolanguage" r)
|
||||
(lookup "Deprecated" r)
|
||||
(lookup "Scope" r)
|
||||
(lookup "Comments" r)
|
||||
(lookups "Comments" r)
|
||||
))
|
||||
"extlang" -> Right (Extl (Extlang
|
||||
(fromJust (lookup "Subtag" r))
|
||||
@ -84,20 +84,20 @@ recordFactory r =
|
||||
(lookups "Description" r)
|
||||
(fromJust (lookup "Added" r))
|
||||
(lookup "Deprecated" r)
|
||||
(lookup "Comments" r)))
|
||||
(lookups "Comments" r)))
|
||||
"region" -> Right (Reg (Region
|
||||
(fromJust (lookup "Subtag" r))
|
||||
(lookups "Description" r)
|
||||
(fromJust (lookup "Added" r))
|
||||
(lookup "Deprecated" r)
|
||||
(lookup "Comments" r)))
|
||||
(lookups "Comments" r)))
|
||||
"variant" -> Right (Var (Variant
|
||||
(fromJust (lookup "Subtag" r))
|
||||
(lookups "Description" r)
|
||||
(fromJust (lookup "Added" r))
|
||||
(lookups "Prefix" r)
|
||||
(lookup "Deprecated" r)
|
||||
(lookup "Comments" r)))
|
||||
(lookups "Comments" r)))
|
||||
"redundant" -> Right (Red (Redundant
|
||||
(fromJust (lookup "Tag" r))
|
||||
(lookups "Description" r)
|
||||
|
Loading…
Reference in New Issue
Block a user