linelength

This commit is contained in:
Joey Hess 2013-03-12 05:05:33 -04:00
parent 2eb7bdc1a4
commit 3e0370017f
3 changed files with 11 additions and 6 deletions

View file

@ -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. -}