Documentation

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

lockDuration :: NominalDiffTime Source #

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

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