Remove blockarguments for compat with older GHC

BNFC · Nov 27, 2023 · f33e07c · f33e07c
1 parent 0fa9df7
commit f33e07c
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/source/src/BNFC/Backend/TreeSitter/CFtoTreeSitter.hs b/source/src/BNFC/Backend/TreeSitter/CFtoTreeSitter.hs
@@ -10,7 +10,6 @@
     Created       : 08 Nov, 2023
 
 -}
-{-# LANGUAGE BlockArguments #-}
 
 module BNFC.Backend.TreeSitter.CFtoTreeSitter where
 
@@ -224,9 +223,9 @@ refName = ("$." ++)
 -- | Format right hand side into list of strings
 formatRhs :: SentForm -> [Doc]
 formatRhs =
-  map \case
+  map (\case
     Left c -> text $ refName $ formatCatName False c
-    Right term -> quoted term
+    Right term -> quoted term)
 
 quoted :: String -> Doc
 quoted s = text "\"" <> text s <> text "\""