module Web.View.Prelude
    ( module Web.Types
    , module Generated.Types
    , module IHP.Prelude
    , module IHP.ViewPrelude
    ) where

import Web.Types
import Generated.Types
import IHP.Prelude
import IHP.ViewPrelude
import Web.Routes ()

-- | Allow [(Text, Text)] option lists in selectField/radioField.
-- The first element is the display label; the second is the stored value.
instance CanSelect (Text, Text) where
    type SelectValue (Text, Text) = Text
    selectValue (_, v) = v
    selectLabel (l, _) = l

-- | Allow [(Text, Id' tag)] option lists (e.g. hub selectors) in selectField.
instance CanSelect (Text, Id' tag) where
    type SelectValue (Text, Id' tag) = Id' tag
    selectValue (_, v) = v
    selectLabel (l, _) = l