@@ -432,8 +432,8 @@ pFunDecl' syn = try (do doc <- option "" (pDocComment '|')
432432 opts' <- pFnOpts opts
433433 n_in <- pfName
434434 let n = expandNS syn n_in
435− ty <- pTSig (impOK syn)
436435 fc <- pfc
436+ ty <- pTSig (impOK syn)
437437 pTerminator
438438-- ty' <- implicit syn n ty
439439 addAcc n acc
@@ -1120,8 +1120,8 @@ toTable fs = map (map toBin)
11201120 assoc (Infixr _) = AssocRight
11211121 assoc (InfixN _) = AssocNone
11221122
1123−binary name f = Infix (do reservedOp name
1124− fc <- pfc;
1123+binary name f = Infix (do fc <- pfc
1124+ reservedOp name
11251125 doc <- option "" (pDocComment '^')
11261126 return (f fc))
11271127prefix name f = Prefix (do reservedOp name