diff options
Diffstat (limited to 'compiler/parser/Parser.y.pp')
| -rw-r--r-- | compiler/parser/Parser.y.pp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp index 6d60f38dea..18651b97c2 100644 --- a/compiler/parser/Parser.y.pp +++ b/compiler/parser/Parser.y.pp @@ -1464,7 +1464,7 @@ exp10 :: { LHsExpr RdrName } | 'proc' aexp '->' exp {% checkPattern empty $2 >>= \ p -> checkCommand $4 >>= \ cmd -> - return (LL $ HsProc p (LL $ HsCmdTop cmd [] + return (LL $ HsProc p (LL $ HsCmdTop cmd placeHolderType placeHolderType undefined)) } -- TODO: is LL right here? @@ -1559,7 +1559,7 @@ cmdargs :: { [LHsCmdTop RdrName] } acmd :: { LHsCmdTop RdrName } : aexp2 {% checkCommand $1 >>= \ cmd -> - return (L1 $ HsCmdTop cmd [] placeHolderType undefined) } + return (L1 $ HsCmdTop cmd placeHolderType placeHolderType undefined) } cvtopbody :: { [LHsDecl RdrName] } : '{' cvtopdecls0 '}' { $2 } |