Safe Haskell	Safe-Inferred
Language	Haskell2010

BtcLsp.Yesod.Foundation

Synopsis

type Uuid'SwapIntoLnTable = Uuid 'SwapIntoLnTable
type Money'Lsp'OnChain'Gain = Money 'Lsp 'OnChain 'Gain
type Money'Usr'OnChain'Fund = Money 'Usr 'OnChain 'Fund
data App = forall m.Env m => App {
- appSettings :: AppSettings
- appStatic :: Static
- appConnPool :: ~ConnectionPool
- appHttpManager :: Manager
- appLogger :: Logger
- appMRunner :: UnliftIO m
}
data AppMessage
- = MsgNothing {
  }
- | MsgProxy {
  - appMessageTxt :: Text
  }
- | MsgUtcTime {
  - appMessageUtc :: UTCTime
  }
- | MsgL {
  }
- | MsgS {
  }
- | MsgP {
  }
- | MsgIso3166v1 {
  }
- | MsgCopy {
  }
- | MsgContinue {
  }
- | MsgAmount {
  }
- | MsgSatoshi {
  - appMessageMsat :: MSat
  }
- | MsgStatus {
  }
- | MsgExpiresAt {
  }
- | MsgInsertedAt {
  }
- | MsgUpdatedAt {
  }
- | MsgChannelPrivacy {
  }
- | MsgBlock {
  }
- | MsgTxId {
  }
- | MsgVout {
  }
- | MsgInputFailure {
  }
- | MsgSwapWaitingFundChain {
  }
- | MsgSwapWaitingPeer {
  }
- | MsgSwapWaitingChan {
  }
- | MsgSwapSucceeded {
  }
- | MsgSwapExpired {
  }
- | MsgSwapUtxoUnspent {
  }
- | MsgSwapUtxoUnspentDust {
  }
- | MsgSwapUtxoUnspentChanReserve {
  }
- | MsgSwapUtxoSpentChanSwapped {
  }
- | MsgSwapUtxoSpentRefund {
  }
- | MsgSwapUtxoOrphan {
  }
- | MsgLnChanStatusPendingOpen {
  }
- | MsgLnChanStatusOpened {
  }
- | MsgLnChanStatusActive {
  }
- | MsgLnChanStatusFullyResolved {
  }
- | MsgLnChanStatusInactive {
  }
- | MsgLnChanStatusPendingClose {
  }
- | MsgLnChanStatusClosed {
  }
- | MsgChanPrivate {
  }
- | MsgChanPublic {
  }
- | MsgHomeRTitle {
  }
- | MsgOpenChanRTitle {
  }
- | MsgSwapIntoLnCreateRTitle {
  }
- | MsgSwapIntoLnSelectRTitle {
  - appMessageSwp :: Uuid'SwapIntoLnTable
  }
- | MsgAboutRTitle {
  }
- | MsgHomeRLinkShort {
  }
- | MsgOpenChanRLinkShort {
  }
- | MsgSwapIntoLnCreateRLinkShort {
  }
- | MsgSwapIntoLnSelectRLinkShort {
  - appMessageSwp :: Uuid'SwapIntoLnTable
  }
- | MsgAboutRLinkShort {
  }
- | MsgHomeRLinkLong {
  }
- | MsgOpenChanRLinkLong {
  }
- | MsgSwapIntoLnCreateRLinkLong {
  }
- | MsgSwapIntoLnSelectRLinkLong {
  - appMessageSwp :: Uuid'SwapIntoLnTable
  }
- | MsgAboutRLinkLong {
  }
- | MsgHomeBigHeader {
  }
- | MsgHomeSmallHeader {
  }
- | MsgOpenChanInstruction {
  }
- | MsgSwapIntoLnFailureRefundOnChainAddressIsNotValid {
  }
- | MsgSwapIntoLnFailureRefundOnChainAddressIsNotSegwit {
  }
- | MsgSwapIntoLnHeaderInfo {
  }
- | MsgSwapIntoLnHeaderUtxos {
  }
- | MsgSwapIntoLnHeaderChans {
  }
- | MsgSwapIntoLnTotalOnChainReceived {
  }
- | MsgSwapIntoLnTotalOnChainReserved {
  }
- | MsgSwapIntoLnTotalOnChainSwapped {
  }
- | MsgSwapIntoLnTotalOnChainRefunded {
  }
- | MsgSwapIntoLnTotalOnChainDust {
  }
- | MsgSwapIntoLnFeeLsp {
  }
- | MsgSwapIntoLnChanCapUser {
  }
- | MsgSwapIntoLnChanCapLsp {
  }
- | MsgSwapIntoLnChanCapTotal {
  }
- | MsgSwapIntoLnUuid {
  }
- | MsgSwapIntoLnUserId {
  }
- | MsgSwapIntoLnFundInvoice {
  }
- | MsgSwapIntoLnFundAddress {
  }
- | MsgSwapIntoLnRefundAddress {
  }
- | MsgSwapIntoLnInfoShort {
  }
- | MsgSwapIntoLnWaitingFundChainShort {
  }
- | MsgSwapIntoLnFundedShort {
  }
- | MsgSwapIntoLnWaitingChanShort {
  }
- | MsgSwapIntoLnSucceededShort {
  }
- | MsgSwapIntoLnExpiredShort {
  }
- | MsgSwapIntoLnInfoLong {
  }
- | MsgSwapIntoLnWaitingFundChainLong {
  - appMessageMinAmt :: Money'Usr'OnChain'Fund
  - appMessageMaxAmt :: Money'Usr'OnChain'Fund
  }
- | MsgSwapIntoLnFundedLong {
  }
- | MsgSwapIntoLnWaitingChanLong {
  }
- | MsgSwapIntoLnSucceededLong {
  }
- | MsgSwapIntoLnExpiredLong {
  }
- | MsgDisclaimerTos0 {
  }
- | MsgDisclaimerTos1 {
  }
- | MsgDisclaimerCommitmentFee {
  }
- | MsgAboutGen0 {
  }
- | MsgAboutGen1 {
  }
- | MsgAboutGen2 {
  }
- | MsgAboutGen3 {
  }
- | MsgAboutGen4 {
  }
- | MsgAboutGen5 {
  }
- | MsgAboutGen6 {
  }
- | MsgAboutGen7 {
  }
- | MsgAboutGen8 {
  }
- | MsgAboutGen9 {
  }
- | MsgAboutGen10 {
  }
- | MsgAboutGen11 {
  }
- | MsgAboutGen12 {
  }
- | MsgAboutMathGen0 {
  }
- | MsgAboutMathGen1 {
  }
- | MsgAboutMathGen2 {
  }
- | MsgAboutMathGen3 {
  }
- | MsgAboutMathGen4 {
  }
- | MsgAboutMathGen5 {
  }
- | MsgAboutMathGen6 {
  }
- | MsgAboutMathGen7 {
  }
- | MsgAboutMathGen8 {
  }
- | MsgAboutMathGen9 {
  }
- | MsgAboutMathMinMax0 {
  }
- | MsgAboutMathMinMax1 {
  }
- | MsgAboutMathMinMax2 {
  }
- | MsgAboutMathMinMax3 {
  - appMessageMinAmt :: Money'Usr'OnChain'Fund
  }
- | MsgAboutMathMinMax4 {
  }
- | MsgAboutMathMinMax5 {
  - appMessageMaxAmt :: Money'Usr'OnChain'Fund
  }
- | MsgAboutMathMinMax6 {
  }
- | MsgAboutMathMinMax7 {
  - appMessageDustLimit :: MSat
  }
- | MsgAboutMathMinMax8 {
  }
- | MsgAboutMathLspFee0 {
  }
- | MsgAboutMathLspFee1 {
  }
- | MsgAboutMathLspFee2 {
  }
- | MsgAboutMathLspFee3 {
  }
- | MsgAboutMathLspFee4 {
  }
- | MsgAboutMathLspFee5 {
  - appMessageFeeRate :: FeeRate
  }
- | MsgAboutMathLspFee6 {
  }
- | MsgAboutMathLspFee7 {
  }
- | MsgAboutMathLspFee8 {
  }
- | MsgAboutMathLspFee9 {
  - appMessageMinFee :: Money'Lsp'OnChain'Gain
  }
- | MsgAboutMathLspFee10 {
  }
- | MsgAboutMathCommFee0 {
  }
- | MsgAboutMathCommFee1 {
  }
- | MsgAboutMathCommFee2 {
  }
- | MsgAboutExamples {
  }
- | MsgAboutExamplesUserOnChainFunding {
  }
- | MsgAboutExamplesLspSwapFee {
  }
- | MsgAboutExamplesUserOutgoingCap {
  }
- | MsgAboutExamplesUserIncomingCap {
  }
- | MsgAboutExamplesTotalChanCap {
  }
- | MsgAboutSwap0 {
  }
- | MsgAboutSwap1 {
  }
- | MsgAboutSwap2 {
  }
- | MsgAboutSwap3 {
  }
- | MsgAboutSwap4 {
  }
- | MsgAboutSwap5 {
  }
- | MsgAboutSwap6 {
  }
- | MsgAboutSwap7 {
  }
- | MsgAboutSwap8 {
  }
- | MsgAboutSwap9 {
  }
- | MsgAboutSwap10 {
  }
- | MsgAboutSwap11 {
  }
- | MsgAboutSwap12 {
  }
- | MsgAboutDisclaimer0 {
  }
- | MsgAboutDisclaimer1 {
  }
data MenuItem = MenuItem {
- menuItemLabel :: AppMessage
- menuItemRoute :: Route App
- menuItemAccessCallback :: Bool
- menuItemActiveCallback :: Bool
- menuItemNoReferrer :: Bool
}
data MenuTypes
- = NavbarLeft MenuItem
- | NavbarRight MenuItem
type Handler = HandlerFor App
type Widget = WidgetFor App ()
resourcesApp :: [ResourceTree String]
type Form x = Html -> MForm (HandlerFor App) (FormResult x, Widget)
type DB a = forall (m :: Type -> Type). MonadUnliftIO m => ReaderT SqlBackend m a
isAuthenticated :: Handler AuthResult
unsafeHandler :: App -> Handler a -> IO a
data PanelConfig = PanelConfig {
}
newLayout :: Maybe PanelConfig -> Widget -> Handler Html
panelLayout :: BootstrapColor -> AppMessage -> AppMessage -> Widget -> Handler Html

Documentation

type Uuid'SwapIntoLnTable = Uuid 'SwapIntoLnTable Source #

NOTE : this type aliases are there only because of poor support of advanced Haskell in yesodroutes and i18n files through Yesod TH.

!!! DO NOT USE DIRECTLY IN SOURCE CODE !!!

type Money'Lsp'OnChain'Gain = Money 'Lsp 'OnChain 'Gain Source #

type Money'Usr'OnChain'Fund = Money 'Usr 'OnChain 'Fund Source #

data App Source #

The foundation datatype for your application. This can be a good place to keep settings and values requiring initialization before your application starts running, such as database connections. Every handler will have access to the data present here.

Constructors

forall m.Env m => App
Fields appSettings :: AppSettings appStatic :: Static Settings for static file serving. appConnPool :: ~ConnectionPool Database connection pool. appHttpManager :: Manager appLogger :: Logger appMRunner :: UnliftIO m

Instances

Instances details

HasHttpManager App Source #
Instance details Defined in BtcLsp.Yesod.Foundation Methods getHttpManager :: App -> Manager #
YesodAuth App Source #
Instance details Defined in BtcLsp.Yesod.Foundation Associated Types type AuthId App # Methods authLayout :: (MonadHandler m, HandlerSite m ~ App) => WidgetFor App () -> m Html # loginDest :: App -> Route App # logoutDest :: App -> Route App # authenticate :: (MonadHandler m, HandlerSite m ~ App) => Creds App -> m (AuthenticationResult App) # getAuthId :: (MonadHandler m, HandlerSite m ~ App) => Creds App -> m (Maybe (AuthId App)) # authPlugins :: App -> [AuthPlugin App] # loginHandler :: AuthHandler App Html # renderAuthMessage :: App -> [Text] -> AuthMessage -> Text # redirectToReferer :: App -> Bool # redirectToCurrent :: App -> Bool # authHttpManager :: (MonadHandler m, HandlerSite m ~ App) => m Manager # onLogin :: (MonadHandler m, App ~ HandlerSite m) => m () # onLogout :: (MonadHandler m, App ~ HandlerSite m) => m () # maybeAuthId :: (MonadHandler m, App ~ HandlerSite m) => m (Maybe (AuthId App)) # onErrorHtml :: (MonadHandler m, HandlerSite m ~ App) => Route App -> Text -> m Html # runHttpRequest :: (MonadHandler m, HandlerSite m ~ App, MonadUnliftIO m) => Request -> (Response BodyReader -> m a) -> m a #
YesodAuthPersist App Source #
Instance details Defined in BtcLsp.Yesod.Foundation Associated Types type AuthEntity App # Methods getAuthEntity :: (MonadHandler m, HandlerSite m ~ App) => AuthId App -> m (Maybe (AuthEntity App)) #
YesodBreadcrumbs App Source #
Instance details Defined in BtcLsp.Yesod.Foundation Methods breadcrumb :: Route App -> HandlerFor App (Text, Maybe (Route App)) #
YesodDispatch App Source #
Instance details Defined in BtcLsp.Yesod.Application Methods yesodDispatch :: YesodRunnerEnv App -> Application #
Yesod App Source #
Instance details Defined in BtcLsp.Yesod.Foundation Methods approot :: Approot App # errorHandler :: ErrorResponse -> HandlerFor App TypedContent # defaultLayout :: WidgetFor App () -> HandlerFor App Html # urlParamRenderOverride :: App -> Route App -> [(Text, Text)] -> Maybe Builder # isAuthorized :: Route App -> Bool -> HandlerFor App AuthResult # isWriteRequest :: Route App -> HandlerFor App Bool # authRoute :: App -> Maybe (Route App) # cleanPath :: App -> [Text] -> Either [Text] [Text] # joinPath :: App -> Text -> [Text] -> [(Text, Text)] -> Builder # addStaticContent :: Text -> Text -> ByteString -> HandlerFor App (Maybe (Either Text (Route App, [(Text, Text)]))) # maximumContentLength :: App -> Maybe (Route App) -> Maybe Word64 # maximumContentLengthIO :: App -> Maybe (Route App) -> IO (Maybe Word64) # makeLogger :: App -> IO Logger # messageLoggerSource :: App -> Logger -> Loc -> LogSource -> LogLevel -> LogStr -> IO () # jsLoader :: App -> ScriptLoadPosition App # jsAttributes :: App -> [(Text, Text)] # jsAttributesHandler :: HandlerFor App [(Text, Text)] # makeSessionBackend :: App -> IO (Maybe SessionBackend) # fileUpload :: App -> RequestBodyLength -> FileUpload # shouldLogIO :: App -> LogSource -> LogLevel -> IO Bool # yesodMiddleware :: ToTypedContent res => HandlerFor App res -> HandlerFor App res # yesodWithInternalState :: App -> Maybe (Route App) -> (InternalState -> IO a) -> IO a # defaultMessageWidget :: Html -> HtmlUrl (Route App) -> WidgetFor App () #
ParseRoute App Source #
Instance details Defined in BtcLsp.Yesod.Foundation Methods parseRoute :: ([Text], [(Text, Text)]) -> Maybe (Route App) #
RenderRoute App Source #
Instance details Defined in BtcLsp.Yesod.Foundation Associated Types data Route App # Methods renderRoute :: Route App -> ([Text], [(Text, Text)]) #
RouteAttrs App Source #
Instance details Defined in BtcLsp.Yesod.Foundation Methods routeAttrs :: Route App -> Set Text #
YesodPersist App Source #
Instance details Defined in BtcLsp.Yesod.Foundation Associated Types type YesodPersistBackend App # Methods runDB :: YesodDB App a -> HandlerFor App a #
YesodPersistRunner App Source #
Instance details Defined in BtcLsp.Yesod.Foundation Methods getDBRunner :: HandlerFor App (DBRunner App, HandlerFor App ()) #
RenderMessage App AppMessage Source #
Instance details Defined in BtcLsp.Yesod.Foundation Methods renderMessage :: App -> [Lang] -> AppMessage -> Text #
RenderMessage App FormMessage Source #
Instance details Defined in BtcLsp.Yesod.Foundation Methods renderMessage :: App -> [Lang] -> FormMessage -> Text #
Read (Route App) Source #
Instance details Defined in BtcLsp.Yesod.Foundation Methods readsPrec :: Int -> ReadS (Route App) # readList :: ReadS [Route App] # readPrec :: ReadPrec (Route App) # readListPrec :: ReadPrec [Route App] #
Show (Route App) Source #
Instance details Defined in BtcLsp.Yesod.Foundation Methods showsPrec :: Int -> Route App -> ShowS # show :: Route App -> String # showList :: [Route App] -> ShowS #
Eq (Route App) Source #
Instance details Defined in BtcLsp.Yesod.Foundation Methods (==) :: Route App -> Route App -> Bool # (/=) :: Route App -> Route App -> Bool #
type AuthEntity App Source #
Instance details Defined in BtcLsp.Yesod.Foundation type AuthEntity App = KeyEntity (AuthId App)
type AuthId App Source #
Instance details Defined in BtcLsp.Yesod.Foundation type AuthId App = UserId
data Route App Source #
Instance details Defined in BtcLsp.Yesod.Foundation data Route App = StaticR (Route Static) \| AuthR (Route Auth) \| FaviconR \| RobotsR \| LanguageR Code \| HomeR \| OpenChanR \| SwapIntoLnCreateR \| SwapIntoLnSelectR Uuid'SwapIntoLnTable \| SwapUpdatesR Uuid'SwapIntoLnTable SwapHash \| AboutR
type YesodPersistBackend App Source #
Instance details Defined in BtcLsp.Yesod.Foundation type YesodPersistBackend App = SqlBackend

data AppMessage Source #

Constructors

MsgNothing

MsgProxy
Fields appMessageTxt :: Text
MsgUtcTime
Fields appMessageUtc :: UTCTime
MsgL

MsgS

MsgP

MsgIso3166v1

MsgCopy

MsgContinue

MsgAmount

MsgSatoshi
Fields appMessageMsat :: MSat
MsgStatus

MsgExpiresAt

MsgInsertedAt

MsgUpdatedAt

MsgChannelPrivacy

MsgBlock

MsgTxId

MsgVout

MsgInputFailure

MsgSwapWaitingFundChain

MsgSwapWaitingPeer

MsgSwapWaitingChan

MsgSwapSucceeded

MsgSwapExpired

MsgSwapUtxoUnspent

MsgSwapUtxoUnspentDust

MsgSwapUtxoUnspentChanReserve

MsgSwapUtxoSpentChanSwapped

MsgSwapUtxoSpentRefund

MsgSwapUtxoOrphan

MsgLnChanStatusPendingOpen

MsgLnChanStatusOpened

MsgLnChanStatusActive

MsgLnChanStatusFullyResolved

MsgLnChanStatusInactive

MsgLnChanStatusPendingClose

MsgLnChanStatusClosed

MsgChanPrivate

MsgChanPublic

MsgHomeRTitle

MsgOpenChanRTitle

MsgSwapIntoLnCreateRTitle

MsgSwapIntoLnSelectRTitle
Fields appMessageSwp :: Uuid'SwapIntoLnTable
MsgAboutRTitle

MsgHomeRLinkShort

MsgOpenChanRLinkShort

MsgSwapIntoLnCreateRLinkShort

MsgSwapIntoLnSelectRLinkShort
Fields appMessageSwp :: Uuid'SwapIntoLnTable
MsgAboutRLinkShort

MsgHomeRLinkLong

MsgOpenChanRLinkLong

MsgSwapIntoLnCreateRLinkLong

MsgSwapIntoLnSelectRLinkLong
Fields appMessageSwp :: Uuid'SwapIntoLnTable
MsgAboutRLinkLong

MsgHomeBigHeader

MsgHomeSmallHeader

MsgOpenChanInstruction

MsgSwapIntoLnFailureRefundOnChainAddressIsNotValid

MsgSwapIntoLnFailureRefundOnChainAddressIsNotSegwit

MsgSwapIntoLnHeaderInfo

MsgSwapIntoLnHeaderUtxos

MsgSwapIntoLnHeaderChans

MsgSwapIntoLnTotalOnChainReceived

MsgSwapIntoLnTotalOnChainReserved

MsgSwapIntoLnTotalOnChainSwapped

MsgSwapIntoLnTotalOnChainRefunded

MsgSwapIntoLnTotalOnChainDust

MsgSwapIntoLnFeeLsp

MsgSwapIntoLnChanCapUser

MsgSwapIntoLnChanCapLsp

MsgSwapIntoLnChanCapTotal

MsgSwapIntoLnUuid

MsgSwapIntoLnUserId

MsgSwapIntoLnFundInvoice

MsgSwapIntoLnFundAddress

MsgSwapIntoLnRefundAddress

MsgSwapIntoLnInfoShort

MsgSwapIntoLnWaitingFundChainShort

MsgSwapIntoLnFundedShort

MsgSwapIntoLnWaitingChanShort

MsgSwapIntoLnSucceededShort

MsgSwapIntoLnExpiredShort

MsgSwapIntoLnInfoLong

MsgSwapIntoLnWaitingFundChainLong
Fields appMessageMinAmt :: Money'Usr'OnChain'Fund appMessageMaxAmt :: Money'Usr'OnChain'Fund
MsgSwapIntoLnFundedLong

MsgSwapIntoLnWaitingChanLong

MsgSwapIntoLnSucceededLong

MsgSwapIntoLnExpiredLong

MsgDisclaimerTos0

MsgDisclaimerTos1

MsgDisclaimerCommitmentFee

MsgAboutGen0

MsgAboutGen1

MsgAboutGen2

MsgAboutGen3

MsgAboutGen4

MsgAboutGen5

MsgAboutGen6

MsgAboutGen7

MsgAboutGen8

MsgAboutGen9

MsgAboutGen10

MsgAboutGen11

MsgAboutGen12

MsgAboutMathGen0

MsgAboutMathGen1

MsgAboutMathGen2

MsgAboutMathGen3

MsgAboutMathGen4

MsgAboutMathGen5

MsgAboutMathGen6

MsgAboutMathGen7

MsgAboutMathGen8

MsgAboutMathGen9

MsgAboutMathMinMax0

MsgAboutMathMinMax1

MsgAboutMathMinMax2

MsgAboutMathMinMax3
Fields appMessageMinAmt :: Money'Usr'OnChain'Fund
MsgAboutMathMinMax4

MsgAboutMathMinMax5
Fields appMessageMaxAmt :: Money'Usr'OnChain'Fund
MsgAboutMathMinMax6

MsgAboutMathMinMax7
Fields appMessageDustLimit :: MSat
MsgAboutMathMinMax8

MsgAboutMathLspFee0

MsgAboutMathLspFee1

MsgAboutMathLspFee2

MsgAboutMathLspFee3

MsgAboutMathLspFee4

MsgAboutMathLspFee5
Fields appMessageFeeRate :: FeeRate
MsgAboutMathLspFee6

MsgAboutMathLspFee7

MsgAboutMathLspFee8

MsgAboutMathLspFee9
Fields appMessageMinFee :: Money'Lsp'OnChain'Gain
MsgAboutMathLspFee10

MsgAboutMathCommFee0

MsgAboutMathCommFee1

MsgAboutMathCommFee2

MsgAboutExamples

MsgAboutExamplesUserOnChainFunding

MsgAboutExamplesLspSwapFee

MsgAboutExamplesUserOutgoingCap

MsgAboutExamplesUserIncomingCap

MsgAboutExamplesTotalChanCap

MsgAboutSwap0

MsgAboutSwap1

MsgAboutSwap2

MsgAboutSwap3

MsgAboutSwap4

MsgAboutSwap5

MsgAboutSwap6

MsgAboutSwap7

MsgAboutSwap8

MsgAboutSwap9

MsgAboutSwap10

MsgAboutSwap11

MsgAboutSwap12

MsgAboutDisclaimer0

MsgAboutDisclaimer1

Instances

Instances details

RenderMessage App AppMessage Source #
Instance details Defined in BtcLsp.Yesod.Foundation Methods renderMessage :: App -> [Lang] -> AppMessage -> Text #

data MenuItem Source #

Constructors

MenuItem
Fields menuItemLabel :: AppMessage menuItemRoute :: Route App menuItemAccessCallback :: Bool menuItemActiveCallback :: Bool menuItemNoReferrer :: Bool

data MenuTypes Source #

Constructors

NavbarLeft MenuItem
NavbarRight MenuItem

type Handler = HandlerFor App Source #

type Widget = WidgetFor App () Source #

resourcesApp :: [ResourceTree String] Source #

type Form x = Html -> MForm (HandlerFor App) (FormResult x, Widget) Source #

A convenient synonym for creating forms.

type DB a = forall (m :: Type -> Type). MonadUnliftIO m => ReaderT SqlBackend m a Source #

A convenient synonym for database access functions.

isAuthenticated :: Handler AuthResult Source #

Access function to determine if a user is logged in.

unsafeHandler :: App -> Handler a -> IO a Source #

data PanelConfig Source #

Constructors

PanelConfig
Fields panelConfigColor :: BootstrapColor panelConfigMsgShort :: AppMessage panelConfigMsgLong :: AppMessage

newLayout :: Maybe PanelConfig -> Widget -> Handler Html Source #

panelLayout :: BootstrapColor -> AppMessage -> AppMessage -> Widget -> Handler Html Source #