Skip to content

GitLab

GHC
GHC
Commit 133d0902 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files
Options

Add comment for the invariant that DataAlt is never a newtype

parent 6f873493
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 1 deletion
compiler/coreSyn/CoreSyn.lhs
View file @ 133d0902
...@@ -112,7 +112,8 @@ type Arg b = Expr b -- Can be a Type ...@@ -112,7 +112,8 @@ type Arg b = Expr b -- Can be a Type
type Alt b = (AltCon, [b], Expr b) -- (DEFAULT, [], rhs) is the default alternative type Alt b = (AltCon, [b], Expr b) -- (DEFAULT, [], rhs) is the default alternative
data AltCon = DataAlt DataCon data AltCon = DataAlt DataCon -- Invariant: the DataCon is always from
-- a *data* type, and never from a *newtype*
| LitAlt Literal | LitAlt Literal
| DEFAULT | DEFAULT
deriving (Eq, Ord) deriving (Eq, Ord)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment