Documentation

lock :: forall user. (?modelContext :: ModelContext, CanUpdate user, UpdateField "lockedAt" user user (Maybe UTCTime) (Maybe UTCTime)) => user -> IO user Source #

lockDuration :: NominalDiffTime Source #

isLocked :: forall user. HasField "lockedAt" user (Maybe UTCTime) => user -> IO Bool Source #

isLocked' :: forall user. HasField "lockedAt" user (Maybe UTCTime) => UTCTime -> user -> Bool Source #