fix some compile warnings left in yesterday
at least 2 could have caused a crash in some circumstances This commit was sponsored by Brett Eisenberg on Patreon.
This commit is contained in:
parent
ace02f41b0
commit
d81f549385
3 changed files with 7 additions and 4 deletions
8
Limit.hs
8
Limit.hs
|
@ -198,8 +198,8 @@ addIn s = do
|
|||
u <- Remote.nameToUUID name
|
||||
hereu <- getUUID
|
||||
addLimit $ if u == hereu && null date
|
||||
then use True inhere
|
||||
else use False (inuuid u)
|
||||
then use True checkinhere
|
||||
else use False (checkinuuid u)
|
||||
where
|
||||
(name, date) = separate (== '@') s
|
||||
use inhere a = Right $ MatchFiles
|
||||
|
@ -209,14 +209,14 @@ addIn s = do
|
|||
, matchNeedsKey = True
|
||||
, matchNeedsLocationLog = not inhere
|
||||
}
|
||||
inuuid u notpresent key
|
||||
checkinuuid u notpresent key
|
||||
| null date = do
|
||||
us <- Remote.keyLocations key
|
||||
return $ u `elem` us && u `S.notMember` notpresent
|
||||
| otherwise = do
|
||||
us <- loggedLocationsHistorical (RefDate date) key
|
||||
return $ u `elem` us
|
||||
inhere notpresent key
|
||||
checkinhere notpresent key
|
||||
| S.null notpresent = inAnnex key
|
||||
| otherwise = do
|
||||
u <- getUUID
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue