29 lines
726 B
Haskell
29 lines
726 B
Haskell
{-# LANGUAGE NoImplicitPrelude #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
|
{-# LANGUAGE TypeFamilies #-}
|
|
|
|
module Handler.Utils.Bootstrap3 where
|
|
|
|
import Import
|
|
import Data.String (IsString(..))
|
|
-- import Yesod.Core
|
|
-- import qualified Data.Text as T
|
|
-- import Yesod.Form.Types
|
|
-- import Yesod.Form.Functions
|
|
import Yesod.Form.Bootstrap3
|
|
|
|
bsSubmit :: String -> BootstrapSubmit Text
|
|
bsSubmit msg =
|
|
BootstrapSubmit (fromString msg) " btn-default btn-primary " []
|
|
|
|
bsHorizontalDefault :: BootstrapFormLayout
|
|
bsHorizontalDefault =
|
|
BootstrapHorizontalForm
|
|
{ bflLabelOffset = ColSm 1
|
|
, bflLabelSize = ColSm 4
|
|
, bflInputOffset = ColSm 1
|
|
, bflInputSize = ColSm 6
|
|
}
|
|
|