Clckwrks.Monad

Documentation

type Clck url = ClckT url (ServerPartT IO)

type ClckPlugins = Plugins Theme (ClckT ClckURL (ServerPartT IO) Response) (ClckT ClckURL IO ()) ClckwrksConfig ClckPluginsSt

ClckPlugins

newtype Plugins theme m hook config st

data ClckPluginsSt

initialClckPluginsSt :: Acid -> ClckPluginsSt

newtype ClckT url m a

Constructors

ClckT

Fields

• unClckT :: RouteT url (StateT ClckState m) a

Instances

Monad m => MonadState ClckState (ClckT url m)

Defined in Clckwrks.Monad

Methods

get :: ClckT url m ClckState

put :: ClckState -> ClckT url m ()

state :: (ClckState -> (a, ClckState)) -> ClckT url m a

FilterMonad r m => FilterMonad r (ClckT url m)

Defined in Clckwrks.Monad

Methods

setFilter :: (r -> r) -> ClckT url m ()

composeFilter :: (r -> r) -> ClckT url m ()

getFilter :: ClckT url m b -> ClckT url m (b, r -> r)

WebMonad r m => WebMonad r (ClckT url m)

Defined in Clckwrks.Monad

Methods

finishWith :: r -> ClckT url m b

MonadTrans (ClckT url)

Defined in Clckwrks.Monad

Methods

lift :: Monad m => m a -> ClckT url m a

IsName n Text => EmbedAsAttr (Clck AdminURL) (Attr n AdminURL)

Defined in Clckwrks.Monad

Methods

asAttr :: Attr n AdminURL -> GenAttributeList (Clck AdminURL)

IsName n Text => EmbedAsAttr (Clck ClckURL) (Attr n ClckURL)

Defined in Clckwrks.Monad

Methods

asAttr :: Attr n ClckURL -> GenAttributeList (Clck ClckURL)

Monad m => Monad (ClckT url m)

Defined in Clckwrks.Monad

Methods

(>>=) :: ClckT url m a -> (a -> ClckT url m b) -> ClckT url m b

(>>) :: ClckT url m a -> ClckT url m b -> ClckT url m b

return :: a -> ClckT url m a

fail :: String -> ClckT url m a

Functor m => Functor (ClckT url m)

Defined in Clckwrks.Monad

Methods

fmap :: (a -> b) -> ClckT url m a -> ClckT url m b

(<$) :: a -> ClckT url m b -> ClckT url m a

Monad m => Applicative (ClckT url m)

Defined in Clckwrks.Monad

Methods

pure :: a -> ClckT url m a

(<*>) :: ClckT url m (a -> b) -> ClckT url m a -> ClckT url m b

liftA2 :: (a -> b -> c) -> ClckT url m a -> ClckT url m b -> ClckT url m c

(*>) :: ClckT url m a -> ClckT url m b -> ClckT url m b

(<*) :: ClckT url m a -> ClckT url m b -> ClckT url m a

MonadPlus m => Alternative (ClckT url m)

Defined in Clckwrks.Monad

Methods

empty :: ClckT url m a

(<|>) :: ClckT url m a -> ClckT url m a -> ClckT url m a

some :: ClckT url m a -> ClckT url m [a]

many :: ClckT url m a -> ClckT url m [a]

MonadPlus m => MonadPlus (ClckT url m)

Defined in Clckwrks.Monad

Methods

mzero :: ClckT url m a

mplus :: ClckT url m a -> ClckT url m a -> ClckT url m a

MonadIO m => MonadIO (ClckT url m)

Defined in Clckwrks.Monad

Methods

liftIO :: IO a -> ClckT url m a

Happstack m => Happstack (ClckT url m)

Defined in Clckwrks.Monad

(Monad m, HasRqData m) => HasRqData (ClckT url m)

Defined in Clckwrks.Monad

Methods

askRqEnv :: ClckT url m RqEnv

localRqEnv :: (RqEnv -> RqEnv) -> ClckT url m a -> ClckT url m a

rqDataError :: Errors String -> ClckT url m a

ServerMonad m => ServerMonad (ClckT url m)

Defined in Clckwrks.Monad

Methods

askRq :: ClckT url m Request

localRq :: (Request -> Request) -> ClckT url m a -> ClckT url m a

(Functor m, Monad m) => XMLGen (ClckT url m)

Defined in Clckwrks.Monad

Associated Types

type XMLType (ClckT url m) :: Type

type StringType (ClckT url m) :: Type

data ChildType (ClckT url m) :: Type

data AttributeType (ClckT url m) :: Type

Methods

genElement :: Name (StringType (ClckT url m)) -> [XMLGenT (ClckT url m) [AttributeType (ClckT url m)]] -> [XMLGenT (ClckT url m) [ChildType (ClckT url m)]] -> XMLGenT (ClckT url m) (XMLType (ClckT url m))

genEElement :: Name (StringType (ClckT url m)) -> [XMLGenT (ClckT url m) [AttributeType (ClckT url m)]] -> XMLGenT (ClckT url m) (XMLType (ClckT url m))

xmlToChild :: XMLType (ClckT url m) -> ChildType (ClckT url m)

pcdataToChild :: StringType (ClckT url m) -> ChildType (ClckT url m)

(Functor m, Monad m) => XMLGenerator (ClckT url m)

Defined in Clckwrks.Monad

(Functor m, MonadIO m) => IntegerSupply (ClckT url m)

Defined in Clckwrks.Monad

Methods

nextInteger :: ClckT url m Integer

Monad m => MonadRoute (ClckT url m)

Defined in Clckwrks.Monad

Associated Types

type URL (ClckT url m) :: Type

Methods

askRouteFn :: ClckT url m (URL (ClckT url m) -> [(Text, Maybe Text)] -> Text)

(Functor m, Monad m) => EmbedAsChild (ClckT url m) Content

Defined in Clckwrks.Monad

Methods

asChild :: Content -> GenChildList (ClckT url m)

(Functor m, Monad m) => EmbedAsChild (ClckT url m) UTCTime

Defined in Clckwrks.Monad

Methods

asChild :: UTCTime -> GenChildList (ClckT url m)

(Functor m, Monad m) => EmbedAsChild (ClckT url m) ()

Defined in Clckwrks.Monad

Methods

asChild :: () -> GenChildList (ClckT url m)

(Functor m, MonadIO m, Happstack m) => EmbedAsChild (ClckT url m) ClckFormError

Defined in Clckwrks.Monad

Methods

asChild :: ClckFormError -> GenChildList (ClckT url m)

(Functor m, Monad m) => EmbedAsChild (ClckT url m) Html

Defined in Clckwrks.Monad

Methods

asChild :: Html -> GenChildList (ClckT url m)

(Functor m, Monad m) => EmbedAsChild (ClckT url m) XML

Defined in Clckwrks.Monad

Methods

asChild :: XML -> GenChildList (ClckT url m)

(Functor m, Monad m) => EmbedAsChild (ClckT url m) Text

Defined in Clckwrks.Monad

Methods

asChild :: Text -> GenChildList (ClckT url m)

(Functor m, Monad m) => EmbedAsChild (ClckT url m) Text

Defined in Clckwrks.Monad

Methods

asChild :: Text -> GenChildList (ClckT url m)

(Functor m, Monad m) => EmbedAsChild (ClckT url m) Float

Defined in Clckwrks.Monad

Methods

asChild :: Float -> GenChildList (ClckT url m)

(Functor m, Monad m) => EmbedAsChild (ClckT url m) Double

Defined in Clckwrks.Monad

Methods

asChild :: Double -> GenChildList (ClckT url m)

(Functor m, Monad m) => EmbedAsChild (ClckT url m) Integer

Defined in Clckwrks.Monad

Methods

asChild :: Integer -> GenChildList (ClckT url m)

(Functor m, Monad m) => EmbedAsChild (ClckT url m) Int

Defined in Clckwrks.Monad

Methods

asChild :: Int -> GenChildList (ClckT url m)

(Functor m, Monad m) => EmbedAsChild (ClckT url m) String

Defined in Clckwrks.Monad

Methods

asChild :: String -> GenChildList (ClckT url m)

(Functor m, Monad m) => EmbedAsChild (ClckT url m) Char

Defined in Clckwrks.Monad

Methods

asChild :: Char -> GenChildList (ClckT url m)

(Functor m, Monad m) => EmbedAsAttr (ClckT url m) Attribute

Defined in Clckwrks.Monad

Methods

asAttr :: Attribute -> GenAttributeList (ClckT url m)

(Functor m, Monad m) => SetAttr (ClckT url m) XML

Defined in Clckwrks.Monad

Methods

setAttr :: XML -> GenAttribute (ClckT url m) -> GenXML (ClckT url m)

setAll :: XML -> GenAttributeList (ClckT url m) -> GenXML (ClckT url m)

(Functor m, Monad m) => AppendChild (ClckT url m) XML

Defined in Clckwrks.Monad

Methods

appChild :: XML -> GenChild (ClckT url m) -> GenXML (ClckT url m)

appAll :: XML -> GenChildList (ClckT url m) -> GenXML (ClckT url m)

(Functor m, Monad m) => GetAcidState (ClckT url m) ProfileDataState

Defined in Clckwrks.Monad

Methods

getAcidState :: ClckT url m (AcidState ProfileDataState)

(Functor m, Monad m) => GetAcidState (ClckT url m) NavBarState

Defined in Clckwrks.Monad

Methods

getAcidState :: ClckT url m (AcidState NavBarState)

(Functor m, Monad m) => GetAcidState (ClckT url m) CoreState

Defined in Clckwrks.Monad

Methods

getAcidState :: ClckT url m (AcidState CoreState)

(Functor m, Monad m, EmbedAsChild (ClckT url m) a) => EmbedAsChild (ClckT url m) (Maybe a)

Defined in Clckwrks.Monad

Methods

asChild :: Maybe a -> GenChildList (ClckT url m)

(Functor m, MonadIO m, EmbedAsChild (ClckT url m) a) => EmbedAsChild (ClckT url m) (IO a)

Defined in Clckwrks.Monad

Methods

asChild :: IO a -> GenChildList (ClckT url m)

(Functor m, Monad m, IsName n Text) => EmbedAsAttr (ClckT url m) (Attr n Text)

Defined in Clckwrks.Monad

Methods

asAttr :: Attr n Text -> GenAttributeList (ClckT url m)

(Functor m, Monad m, IsName n Text) => EmbedAsAttr (ClckT url m) (Attr n Text)

Defined in Clckwrks.Monad

Methods

asAttr :: Attr n Text -> GenAttributeList (ClckT url m)

(Functor m, Monad m, IsName n Text) => EmbedAsAttr (ClckT url m) (Attr n Integer)

Defined in Clckwrks.Monad

Methods

asAttr :: Attr n Integer -> GenAttributeList (ClckT url m)

(Functor m, Monad m, IsName n Text) => EmbedAsAttr (ClckT url m) (Attr n Int)

Defined in Clckwrks.Monad

Methods

asAttr :: Attr n Int -> GenAttributeList (ClckT url m)

(Functor m, Monad m, IsName n Text) => EmbedAsAttr (ClckT url m) (Attr n Bool)

Defined in Clckwrks.Monad

Methods

asAttr :: Attr n Bool -> GenAttributeList (ClckT url m)

(Functor m, Monad m, IsName n Text) => EmbedAsAttr (ClckT url m) (Attr n Char)

Defined in Clckwrks.Monad

Methods

asAttr :: Attr n Char -> GenAttributeList (ClckT url m)

(Functor m, Monad m, IsName n Text) => EmbedAsAttr (ClckT url m) (Attr n String)

Defined in Clckwrks.Monad

Methods

asAttr :: Attr n String -> GenAttributeList (ClckT url m)

(EmbedAsChild (ClckT url1 m) a, url1 ~ url2) => EmbedAsChild (ClckT url1 m) (ClckT url2 m a)

Defined in Clckwrks.Monad

Methods

asChild :: ClckT url2 m a -> GenChildList (ClckT url1 m)

newtype AttributeType (ClckT url m)

Defined in Clckwrks.Monad

newtype AttributeType (ClckT url m) = ClckAttr {

• unClckAttr :: Attribute

}

newtype ChildType (ClckT url m)

Defined in Clckwrks.Monad

newtype ChildType (ClckT url m) = ClckChild {

• unClckChild :: XML

}

type StringType (ClckT url m)

Defined in Clckwrks.Monad

type StringType (ClckT url m) = Text

type XMLType (ClckT url m)

Defined in Clckwrks.Monad

type XMLType (ClckT url m) = XML

type URL (ClckT url m)

Defined in Clckwrks.Monad

type URL (ClckT url m) = url

type ClckForm url = Form (ClckT url (ServerPartT IO)) [Input] ClckFormError [XMLGenT (ClckT url (ServerPartT IO)) XML] ()

type ClckFormT error m = Form m [Input] error [XMLGenT m XML] ()

ClckForm - type for reform forms

data ClckFormError

error returned when a reform Form fails to validate

Constructors

ClckCFE (CommonFormError [Input])

PDE ProfileDataError

EmptyUsername

Instances

Show ClckFormError

Defined in Clckwrks.Monad

Methods

showsPrec :: Int -> ClckFormError -> ShowS

show :: ClckFormError -> String

showList :: [ClckFormError] -> ShowS

FormError ClckFormError

Defined in Clckwrks.Monad

Associated Types

type ErrorInputType ClckFormError :: Type

Methods

commonFormError :: CommonFormError (ErrorInputType ClckFormError) -> ClckFormError

(Functor m, MonadIO m, Happstack m) => EmbedAsChild (ClckT url m) ClckFormError

Defined in Clckwrks.Monad

Methods

asChild :: ClckFormError -> GenChildList (ClckT url m)

type ErrorInputType ClckFormError

Defined in Clckwrks.Monad

type ErrorInputType ClckFormError = [Input]

data family ChildType (m :: Type -> Type) :: Type

Instances

XMLGen m => EmbedAsChild m (ChildType m)

Defined in HSP.XMLGenerator

Methods

asChild :: ChildType m -> GenChildList m

newtype ChildType (HSPT XML m)

Defined in HSP.Monad

newtype ChildType (HSPT XML m) = HSPChild {

• unHSPChild :: XML

}

newtype ChildType (RouteT url m)

Defined in Web.Routes.XMLGenT

newtype ChildType (RouteT url m) = UChild {

• unUChild :: XML

}

newtype ChildType (ClckT url m)

Defined in Clckwrks.Monad

newtype ChildType (ClckT url m) = ClckChild {

• unClckChild :: XML

}

data ClckwrksConfig

Constructors

ClckwrksConfig

Fields

• clckHostname :: String

  external name of the host

• clckPort :: Int

  port to listen on

• clckTLS :: Maybe TLSSettings

  HTTPS

• clckHidePort :: Bool

  hide port number in URL (useful when running behind a reverse proxy)

• clckJQueryPath :: FilePath

  path to jquery.js on disk

• clckJQueryUIPath :: FilePath

  path to jquery-ui.js on disk

• clckJSTreePath :: FilePath

  path to jstree.js on disk

• clckJSON2Path :: FilePath

  path to JSON2.js on disk

• clckTopDir :: Maybe FilePath

  path to top-level directory for all acid-state filesfile uploadsetc

• clckEnableAnalytics :: Bool

  enable google analytics

• clckInitHook :: Text -> ClckState -> ClckwrksConfig -> IO (ClckState, ClckwrksConfig)

  init hook

data TLSSettings

Constructors

TLSSettings

Fields

• clckTLSPort :: Int
• clckTLSCert :: FilePath
• clckTLSKey :: FilePath
• clckTLSCA :: Maybe FilePath

data family AttributeType (m :: Type -> Type) :: Type

Instances

XMLGen m => EmbedAsAttr m (AttributeType m)

Defined in HSP.XMLGenerator

Methods

asAttr :: AttributeType m -> GenAttributeList m

newtype AttributeType (HSPT XML m)

Defined in HSP.Monad

newtype AttributeType (HSPT XML m) = HSPAttr {

• unHSPAttr :: Attribute

}

newtype AttributeType (RouteT url m)

Defined in Web.Routes.XMLGenT

newtype AttributeType (RouteT url m) = UAttr {

• unUAttr :: Attribute

}

newtype AttributeType (ClckT url m)

Defined in Clckwrks.Monad

newtype AttributeType (ClckT url m) = ClckAttr {

• unClckAttr :: Attribute

}

data Theme

Constructors

Theme

Fields

• themeName :: ThemeName
• themeStyles :: [ThemeStyle]
• themeDataDir :: IO FilePath

data ThemeStyle

Constructors

ThemeStyle

Fields

• themeStyleName :: Text
• themeStyleDescription :: Text
• themeStylePreview :: Maybe FilePath
• themeStyleTemplate :: forall headers body. (EmbedAsChild (ClckT ClckURL (ServerPartT IO)) headers, EmbedAsChild (ClckT ClckURL (ServerPartT IO)) body) => Text -> headers -> body -> XMLGenT (ClckT ClckURL (ServerPartT IO)) XML

newtype ThemeStyleId

Constructors

ThemeStyleId

Fields

• unThemeStyleId :: Int

Instances

Eq ThemeStyleId

Defined in Clckwrks.Monad

Methods

(==) :: ThemeStyleId -> ThemeStyleId -> Bool

(/=) :: ThemeStyleId -> ThemeStyleId -> Bool

Data ThemeStyleId

Defined in Clckwrks.Monad

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> ThemeStyleId -> c ThemeStyleId

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c ThemeStyleId

toConstr :: ThemeStyleId -> Constr

dataTypeOf :: ThemeStyleId -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c ThemeStyleId)

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c ThemeStyleId)

gmapT :: (forall b. Data b => b -> b) -> ThemeStyleId -> ThemeStyleId

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> ThemeStyleId -> r

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> ThemeStyleId -> r

gmapQ :: (forall d. Data d => d -> u) -> ThemeStyleId -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> ThemeStyleId -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> ThemeStyleId -> m ThemeStyleId

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> ThemeStyleId -> m ThemeStyleId

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> ThemeStyleId -> m ThemeStyleId

Ord ThemeStyleId

Defined in Clckwrks.Monad

Methods

compare :: ThemeStyleId -> ThemeStyleId -> Ordering

(<) :: ThemeStyleId -> ThemeStyleId -> Bool

(<=) :: ThemeStyleId -> ThemeStyleId -> Bool

(>) :: ThemeStyleId -> ThemeStyleId -> Bool

(>=) :: ThemeStyleId -> ThemeStyleId -> Bool

max :: ThemeStyleId -> ThemeStyleId -> ThemeStyleId

min :: ThemeStyleId -> ThemeStyleId -> ThemeStyleId

Read ThemeStyleId

Defined in Clckwrks.Monad

Methods

readsPrec :: Int -> ReadS ThemeStyleId

readList :: ReadS [ThemeStyleId]

readPrec :: ReadPrec ThemeStyleId

readListPrec :: ReadPrec [ThemeStyleId]

Show ThemeStyleId

Defined in Clckwrks.Monad

Methods

showsPrec :: Int -> ThemeStyleId -> ShowS

show :: ThemeStyleId -> String

showList :: [ThemeStyleId] -> ShowS

SafeCopy ThemeStyleId

Defined in Clckwrks.Monad

Methods

version :: Version ThemeStyleId

kind :: Kind ThemeStyleId

getCopy :: Contained (Get ThemeStyleId)

putCopy :: ThemeStyleId -> Contained Put

internalConsistency :: Consistency ThemeStyleId

objectProfile :: Profile ThemeStyleId

errorTypeName :: Proxy ThemeStyleId -> String

type ThemeName = Text

getThemeStyles :: MonadIO m => ClckPlugins -> m [(ThemeStyleId, ThemeStyle)]

themeTemplate :: (EmbedAsChild (ClckT ClckURL (ServerPartT IO)) headers, EmbedAsChild (ClckT ClckURL (ServerPartT IO)) body) => ClckPlugins -> ThemeStyleId -> Text -> headers -> body -> ClckT ClckURL (ServerPartT IO) Response

calcBaseURI :: ClckwrksConfig -> Text

calculate the baseURI from the clckHostname, clckPort and clckHidePort options

calcTLSBaseURI :: ClckwrksConfig -> Maybe Text

evalClckT

Arguments

:: Monad m

=> (url -> [(Text, Maybe Text)] -> Text)

function to act as showURLParams

-> ClckState

initial ClckState

-> ClckT url m a

ClckT to evaluate

-> m a

evaluate a ClckT returning the inner monad

similar to evalStateT.

execClckT

Arguments

:: Monad m

=> (url -> [(Text, Maybe Text)] -> Text)

function to act as showURLParams

-> ClckState

initial ClckState

-> ClckT url m a

ClckT to evaluate

-> m ClckState

execute a ClckT returning the final ClckState

similar to execStateT.

runClckT

Arguments

:: Monad m

=> (url -> [(Text, Maybe Text)] -> Text)

function to act as showURLParams

-> ClckState

initial ClckState

-> ClckT url m a

ClckT to evaluate

-> m (a, ClckState)

run a ClckT

similar to runStateT.

mapClckT

Arguments

:: (m (a, ClckState) -> n (b, ClckState))

transformation function

-> ClckT url m a

initial monad

-> ClckT url n b

map a transformation function over the inner monad

similar to mapStateT

withRouteClckT :: ((url' -> [(Text, Maybe Text)] -> Text) -> url -> [(Text, Maybe Text)] -> Text) -> ClckT url m a -> ClckT url' m a

change the route url

data ClckState

Constructors

ClckState

Fields

• acidState :: Acid
• uniqueId :: TVar Integer
• adminMenus :: [(Text, [(Set Role, Text, Text)])]
• enableAnalytics :: Bool

  enable Google Analytics

• plugins :: ClckPlugins
• requestInit :: ServerPart ()

  an action which gets called at the beginning of each request

Instances

Monad m => MonadState ClckState (ClckT url m)

Defined in Clckwrks.Monad

Methods

get :: ClckT url m ClckState

put :: ClckState -> ClckT url m ()

state :: (ClckState -> (a, ClckState)) -> ClckT url m a

data Content

a wrapper which identifies how to treat different Text values when attempting to embed them.

In general Content values have already been flattenpreprocessedetc and are now basic formats like text/plain, text/html, etc

Constructors

TrustedHtml Text

PlainText Text

Instances

Eq Content

Defined in Clckwrks.Monad

Methods

(==) :: Content -> Content -> Bool

(/=) :: Content -> Content -> Bool

Data Content

Defined in Clckwrks.Monad

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Content -> c Content

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Content

toConstr :: Content -> Constr

dataTypeOf :: Content -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Content)

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Content)

gmapT :: (forall b. Data b => b -> b) -> Content -> Content

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Content -> r

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Content -> r

gmapQ :: (forall d. Data d => d -> u) -> Content -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> Content -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Content -> m Content

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Content -> m Content

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Content -> m Content

Ord Content

Defined in Clckwrks.Monad

Methods

compare :: Content -> Content -> Ordering

(<) :: Content -> Content -> Bool

(<=) :: Content -> Content -> Bool

(>) :: Content -> Content -> Bool

(>=) :: Content -> Content -> Bool

max :: Content -> Content -> Content

min :: Content -> Content -> Content

Read Content

Defined in Clckwrks.Monad

Methods

readsPrec :: Int -> ReadS Content

readList :: ReadS [Content]

readPrec :: ReadPrec Content

readListPrec :: ReadPrec [Content]

Show Content

Defined in Clckwrks.Monad

Methods

showsPrec :: Int -> Content -> ShowS

show :: Content -> String

showList :: [Content] -> ShowS

(Functor m, Monad m) => EmbedAsChild (ClckT url m) Content

Defined in Clckwrks.Monad

Methods

asChild :: Content -> GenChildList (ClckT url m)

addAdminMenu :: Monad m => (Text, [(Set Role, Text, Text)]) -> ClckT url m ()

add an Admin menu

appendRequestInit :: Monad m => ServerPart () -> ClckT url m ()

append an action to the request init

getNavBarLinks :: MonadIO m => Plugins theme n hook config ClckPluginsSt -> ClckT ClckURL m NavBarLinks

addPreProc :: MonadIO m => Plugins theme n hook config ClckPluginsSt -> (forall mm. (Functor mm, MonadIO mm, Happstack mm) => Text -> ClckT ClckURL mm Text) -> m ()

addNavBarCallback :: MonadIO m => Plugins theme n hook config ClckPluginsSt -> ClckT ClckURL IO (String, [NamedLink]) -> m ()

getPreProcessors :: MonadIO m => Plugins theme n hook config ClckPluginsSt -> forall mm. (Functor mm, MonadIO mm, Happstack mm) => ClckT url m [Text -> ClckT ClckURL mm Text]

getEnableAnalytics :: (Functor m, MonadState ClckState m) => m Bool

get the Bool value indicating if Google Analytics should be enabled or not

googleAnalytics :: XMLGenT (Clck url) XML

create a google analytics tracking code block

This will under two different conditions:

• the enableAnalytics field in ClckState is False
• the uacct field in PageState is Nothing

getUnique :: (Functor m, MonadIO m) => ClckT url m Integer

get a unique Integer.

Only unique for the current request

setUnique :: (Functor m, MonadIO m) => Integer -> ClckT url m ()

setRedirectCookie :: Happstack m => String -> m ()

getRedirectCookie :: Happstack m => m (Maybe String)

query :: forall event m. (QueryEvent event, GetAcidState m (EventState event), Functor m, MonadIO m, MonadState ClckState m) => event -> m (EventResult event)

similar to the normal acid-state query except it automatically gets the correct AcidState handle from the environment

update :: forall event m. (UpdateEvent event, GetAcidState m (EventState event), Functor m, MonadIO m, MonadState ClckState m) => event -> m (EventResult event)

similar to the normal acid-state update except it automatically gets the correct AcidState handle from the environment

nestURL :: (url1 -> url2) -> ClckT url1 m a -> ClckT url2 m a

withAbs :: Happstack m => ClckT url m a -> ClckT url m a

withAbs' :: Text -> ClckT url m a -> ClckT url m a

segments :: Text -> Parser a -> Parser [Segment a]

transform :: Monad m => (cmd -> m Builder) -> [Segment cmd] -> m Builder

module HSP.XML

module HSP.XMLGenerator

Orphan instances

GetAcidState m st => GetAcidState (XMLGenT m) st

Methods

getAcidState :: XMLGenT m (AcidState st)