@@ -49,7 +49,7 @@ infixDecl = do
49 , reserved "infixr" >> return R ]
49 , reserved "infixr" >> return R ]
50 whitespace
50 whitespace
51 n <- digit
51 n <- digit
52− whitespace
52+ forcedWS
53 Fixity assoc (read [n]) <$> anyOp
53 Fixity assoc (read [n]) <$> anyOp