linelength
This commit is contained in:
parent
2eb7bdc1a4
commit
3e0370017f
3 changed files with 11 additions and 6 deletions
3
Limit.hs
3
Limit.hs
|
@ -51,7 +51,8 @@ getMatcher' = do
|
|||
Right r -> return r
|
||||
Left l -> do
|
||||
let matcher = Utility.Matcher.generate (reverse l)
|
||||
Annex.changeState $ \s -> s { Annex.limit = Right matcher }
|
||||
Annex.changeState $ \s ->
|
||||
s { Annex.limit = Right matcher }
|
||||
return matcher
|
||||
|
||||
{- Adds something to the limit list, which is built up reversed. -}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue