fixup! [ haskell, BNFC#423 ] structured errors in the Haskell backend

vkpgwt · Aug 12, 2022 · afee537 · afee537
1 parent 99f98a8
commit afee537
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/source/src/BNFC/Backend/Haskell/CFtoHappy.hs b/source/src/BNFC/Backend/Haskell/CFtoHappy.hs
@@ -275,7 +275,7 @@ footer absName tokenText functor eps errorType _cf = unlines $ concat
     , ""
     , "-- | The parser failure type."
     , "--"
-    , "-- It can contain fields of more specific failure record types, so that they"
+    , "-- It contains values of more specific failure record types, so that they"
     , "-- could easily be extended with new fields."
     , "data Failure"
     , "  = FailureInvalidToken !InvalidTokenFailure"

diff --git a/source/src/BNFC/Options.hs b/source/src/BNFC/Options.hs
@@ -3,7 +3,6 @@
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE RecordWildCards #-}
 {-# LANGUAGE TupleSections #-}
-{-# LANGUAGE ViewPatterns #-}
 
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 
@@ -388,7 +387,7 @@ specificOptions =
           "Derive Data, Generic, and Typeable instances for AST types"
     , haskellTargets )
   , ( Option []    ["errors"] (ReqArg parseAndSetErrorType "TYPE")
-          "Set the parser error type. Valid values are `string' (default) and `structured'"
+          "Set the parser error type: `string' (default) or `structured'"
     , [TargetHaskell] )
   , ( Option []    ["xml"] (NoArg (\o -> pure o {xml = 1}))
           "Also generate a DTD and an XML printer"