Fix flag file parsing

This commit is contained in:
Joscha 2019-11-18 09:33:10 +00:00
parent 5b172ad57f
commit 5a486b59c2

View file

@ -31,7 +31,6 @@ lAddressRange :: Parser AddressRange
lAddressRange = do
firstAddress <- lAddress
secondAddress <- (symbol "-" *> lAddress) <|> pure firstAddress
void $ symbol ":"
pure $ range firstAddress secondAddress
lLine :: Parser (AddressRange, Set.Set Char)