Fix flag file parsing
This commit is contained in:
parent
5b172ad57f
commit
5a486b59c2
1 changed files with 0 additions and 1 deletions
|
|
@ -31,7 +31,6 @@ lAddressRange :: Parser AddressRange
|
||||||
lAddressRange = do
|
lAddressRange = do
|
||||||
firstAddress <- lAddress
|
firstAddress <- lAddress
|
||||||
secondAddress <- (symbol "-" *> lAddress) <|> pure firstAddress
|
secondAddress <- (symbol "-" *> lAddress) <|> pure firstAddress
|
||||||
void $ symbol ":"
|
|
||||||
pure $ range firstAddress secondAddress
|
pure $ range firstAddress secondAddress
|
||||||
|
|
||||||
lLine :: Parser (AddressRange, Set.Set Char)
|
lLine :: Parser (AddressRange, Set.Set Char)
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue