Skip to content

Commit afee537

Browse files
author
Anton Vl. Kalinin
committed
fixup! [ haskell, #423 ] structured errors in the Haskell backend
1 parent 99f98a8 commit afee537

File tree

2 files changed

+2
-3
lines changed

2 files changed

+2
-3
lines changed

source/src/BNFC/Backend/Haskell/CFtoHappy.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -275,7 +275,7 @@ footer absName tokenText functor eps errorType _cf = unlines $ concat
275275
, ""
276276
, "-- | The parser failure type."
277277
, "--"
278-
, "-- It can contain fields of more specific failure record types, so that they"
278+
, "-- It contains values of more specific failure record types, so that they"
279279
, "-- could easily be extended with new fields."
280280
, "data Failure"
281281
, " = FailureInvalidToken !InvalidTokenFailure"

source/src/BNFC/Options.hs

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,6 @@
33
{-# LANGUAGE LambdaCase #-}
44
{-# LANGUAGE RecordWildCards #-}
55
{-# LANGUAGE TupleSections #-}
6-
{-# LANGUAGE ViewPatterns #-}
76

87
{-# OPTIONS_GHC -fno-warn-orphans #-}
98

@@ -388,7 +387,7 @@ specificOptions =
388387
"Derive Data, Generic, and Typeable instances for AST types"
389388
, haskellTargets )
390389
, ( Option [] ["errors"] (ReqArg parseAndSetErrorType "TYPE")
391-
"Set the parser error type. Valid values are `string' (default) and `structured'"
390+
"Set the parser error type: `string' (default) or `structured'"
392391
, [TargetHaskell] )
393392
, ( Option [] ["xml"] (NoArg (\o -> pure o {xml = 1}))
394393
"Also generate a DTD and an XML printer"

0 commit comments

Comments
 (0)