From cb8ef11d1f4a4dc6e526ec2e10af3e3d0cceeea2 Mon Sep 17 00:00:00 2001 From: nnmrts Date: Tue, 18 Jun 2024 10:44:00 +0200 Subject: [PATCH] fix comments field --- Registry/Grammar.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Registry/Grammar.hs b/Registry/Grammar.hs index 71da97d..93bbbba 100644 --- a/Registry/Grammar.hs +++ b/Registry/Grammar.hs @@ -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)