- , char 'Z' >> return (TimeZone 0 False "Z")
- , char 'A' >> return (TimeZone ((-1) * 60) False "A")
- , char 'N' >> return (TimeZone ( 1 * 60) False "N")
- , char 'Y' >> return (TimeZone ( 12 * 60) False "Y")
+ , char 'Z' *> return (TimeZone 0 False "Z")
+ , char 'A' *> return (TimeZone ((-1) * 60) False "A")
+ , char 'N' *> return (TimeZone ( 1 * 60) False "N")
+ , char 'Y' *> return (TimeZone ( 12 * 60) False "Y")