matterhorn-40600.0.0: src/Constants.hs

module Constants
  ( pageAmount
  , userTypingExpiryInterval
  )
where

import Data.Time (NominalDiffTime)

-- | The number of rows to consider a "page" when scrolling
pageAmount :: Int
pageAmount = 15

-- | The expiry interval in seconds for user typing notifications.
userTypingExpiryInterval :: NominalDiffTime
userTypingExpiryInterval = 5