diff options
author | Joey Hess <joey@kitenet.net> | 2013-04-03 03:52:41 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-04-03 03:52:41 -0400 |
commit | 6543d5406c64bb00a58e74305ec9ca09a49faf0b (patch) | |
tree | 5e33ceb3ea5b5bf5ad4f2cbb7d08b19cb1026897 /Limit.hs | |
parent | f0dd3c6c1624cb5441eab175c6f5a683d3806885 (diff) |
hlint
Diffstat (limited to 'Limit.hs')
-rw-r--r-- | Limit.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -5,7 +5,7 @@ - Licensed under the GNU GPL version 3 or higher. -} -{-# LANGUAGE PackageImports, CPP #-} +{-# LANGUAGE CPP #-} module Limit where @@ -128,7 +128,7 @@ limitIn name = Right $ \notpresent -> check $ limitPresent :: Maybe UUID -> MkLimit limitPresent u _ = Right $ const $ check $ \key -> do hereu <- getUUID - if u == Just hereu || u == Nothing + if u == Just hereu || isNothing u then inAnnex key else do us <- Remote.keyLocations key |