Documentation

Configure a data type to persist in the session as a cookie. These are type-indexed, so only one of each can exist in the session

data Preferences = Preferences
  { color :: AppColor
  }
  deriving (Generic, ToEncoded, FromEncoded, Session)

instance Default Preferences where
  def = Preferences White

Load data from a browser cookie. If it doesn't exist, the Default instance is used

data Preferences = Preferences
  { color :: AppColor
  }
  deriving (Generic, ToEncoded, FromEncoded, Session)

instance Default Preferences where
  def = Preferences White

page :: (Hyperbole :> es) => Page es '[Content]
page = do
  prefs <- session @Preferences
  pure $ el ~ bg prefs.color $ "Custom Background"

Return a session if it exists

Persist datatypes in browser cookies

data Preferences = Preferences
  { color :: AppColor
  }
  deriving (Generic, ToEncoded, FromEncoded, Session)

instance Default Preferences where
  def = Preferences White

instance HyperView Content es where
  data Action Content
    = SetColor AppColor
    deriving (Generic, ViewAction)

  update (SetColor clr) = do
    let prefs = Preferences clr
    saveSession prefs
    pure $ el ~ bg prefs.color $ "Custom Background"

Remove a single Session from the browser cookies

save a single datatype to a specific key in the session

Modify the client cookies

Return all the cookies, both those sent in the request and others added by the page

Return the session from the Client cookies

Return the session from the Request cookies

generic datatype name