Allow [ foo \> bar ], while warning for [[ .. \> .. ]] and [ 1 \< 2 ]

This commit is contained in:
Vidar Holen 2013-05-14 15:59:58 -07:00
parent 10d4abf235
commit 92d0ae8b6b
2 changed files with 18 additions and 6 deletions

View file

@ -213,7 +213,7 @@ readConditionContents single = do
typ = if single then SingleBracket else DoubleBracket
readCondBinaryOp = try $ do
id <- getNextId
op <- (choice $ (map tryOp ["==", "!=", "<=", ">=", "=~", ">", "<", "="])) <|> otherOp
op <- (choice $ (map tryOp ["==", "!=", "<=", ">=", "=~", ">", "<", "=", "\\<=", "\\>=", "\\<", "\\>"])) <|> otherOp
hardCondSpacing
return op
where