Fixed a bug in the quote module
This commit is contained in:
parent
50c8c0801e
commit
cc8053fc80
1 changed files with 1 additions and 1 deletions
|
@ -84,7 +84,7 @@ isQuoteLockedFor quoteId requestor now = do
|
||||||
Just (owner, lockStamp) ->
|
Just (owner, lockStamp) ->
|
||||||
if owner == requestor
|
if owner == requestor
|
||||||
then return $ Just True
|
then return $ Just True
|
||||||
else return . Just $ (addUTCTime 300 lockStamp > now) -- Is the entry older than 5 min?
|
else return . Just $ (addUTCTime 300 lockStamp < now) -- Is the entry older than 5 min?
|
||||||
Nothing -> return $ Just True
|
Nothing -> return $ Just True
|
||||||
Nothing -> return Nothing
|
Nothing -> return Nothing
|
||||||
|
|
||||||
|
|
Reference in a new issue