 :: Operator -> ParserD Operator
makeOp op = try (parseOp $ opRepr op) >> return op
    where
        parseOp :: Text -> ParserD ()
        parseOp = reservedOp lexer . unpack

makeOp :: Operator -> ParserD Operator
makeOp op = try (parseOp $ opRepr op) >> return op
    where
        parseOp :: Text -> ParserD ()
        parseOp = reservedOp lexer . unpack
makeOp op = try (parseOp $ opRepr op) >> return op
    where
        parseOp :: Text -> ParserD ()
        parseOp = reservedOp lexer . unpack