Cleanup
This commit is contained in:
@@ -31,6 +31,6 @@ defaultTLS = TLS
|
||||
, _tlsTime = 1
|
||||
}
|
||||
where
|
||||
f _ t
|
||||
f t
|
||||
| _tlsTime t <= 0 = Nothing
|
||||
| otherwise = Just $ t & tlsTime -~ 1
|
||||
|
||||
Reference in New Issue
Block a user