-parseFieldSelectors = many (satTok DotToken *> (
- (parseIdent >>= \i.if (i == "hd") (pure FieldHd) empty) <|>
- (parseIdent >>= \i.if (i == "tl") (pure FieldTl) empty) <|>
- (parseIdent >>= \i.if (i == "fst") (pure FieldFst) empty) <|>
- (parseIdent >>= \i.if (i == "snd") (pure FieldSnd) empty)))