mirror of
https://github.com/github/semantic.git
synced 2024-12-30 10:27:45 +03:00
clarify TODO
This commit is contained in:
parent
0f71cd2404
commit
330a78b230
@ -222,7 +222,9 @@ instance Eq1 LowPrecedenceAnd where liftEq = genericLiftEq
|
|||||||
instance Ord1 LowPrecedenceAnd where liftCompare = genericLiftCompare
|
instance Ord1 LowPrecedenceAnd where liftCompare = genericLiftCompare
|
||||||
instance Show1 LowPrecedenceAnd where liftShowsPrec = genericLiftShowsPrec
|
instance Show1 LowPrecedenceAnd where liftShowsPrec = genericLiftShowsPrec
|
||||||
|
|
||||||
-- PT TODO: This isn't right
|
-- TODO: These should probably be expressed with a new context/token,
|
||||||
|
-- rather than a literal run, and need to take surrounding precedence
|
||||||
|
-- into account.
|
||||||
instance Tokenize LowPrecedenceAnd where
|
instance Tokenize LowPrecedenceAnd where
|
||||||
tokenize LowPrecedenceAnd{..} = lhs *> yield (Token.Run "and") <* rhs
|
tokenize LowPrecedenceAnd{..} = lhs *> yield (Token.Run "and") <* rhs
|
||||||
|
|
||||||
@ -241,6 +243,5 @@ instance Eq1 LowPrecedenceOr where liftEq = genericLiftEq
|
|||||||
instance Ord1 LowPrecedenceOr where liftCompare = genericLiftCompare
|
instance Ord1 LowPrecedenceOr where liftCompare = genericLiftCompare
|
||||||
instance Show1 LowPrecedenceOr where liftShowsPrec = genericLiftShowsPrec
|
instance Show1 LowPrecedenceOr where liftShowsPrec = genericLiftShowsPrec
|
||||||
|
|
||||||
-- PT TODO: This isn't right
|
|
||||||
instance Tokenize LowPrecedenceOr where
|
instance Tokenize LowPrecedenceOr where
|
||||||
tokenize LowPrecedenceOr{..} = lhs *> yield (Token.Run "or") <* rhs
|
tokenize LowPrecedenceOr{..} = lhs *> yield (Token.Run "or") <* rhs
|
||||||
|
Loading…
Reference in New Issue
Block a user