Support older GHC versions

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