Fix parse error on older GHC

BNFC · Feb 4, 2024 · 39fb1ec · 39fb1ec
1 parent 3667a06
commit 39fb1ec
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/source/src/BNFC/Backend/TreeSitter/CFtoTreeSitter.hs b/source/src/BNFC/Backend/TreeSitter/CFtoTreeSitter.hs
@@ -142,16 +142,15 @@ type CatOpt = CatOpt' Cat
 
 -- | type class for OCat or Cat
 class UnwrapCat a where
+  -- | unwrap to original Cat
   unwrap:: a -> Cat
 
 instance UnwrapCat Cat where
   unwrap = id
 
 instance UnwrapCat CatOpt where
-    -- | unwrap to original Cat
-  unwrap c = case c of
-    Always ct -> ct
-    Optional ct -> ct
+  unwrap (Always c) = c
+  unwrap (Optional c) = c
 
 -- | Rule with RHS tagged
 data RuleOpt = Rule' {srcRule::Rule, taggedRhs::SentFormOpt}