Yu.Core.Model

License : GPL3 Stability : experimental Portability : unknown

The codes for model

run database

runDb

Arguments

:: Mongodic site m

=> AccessMode

access mode

-> Database

database

-> Action m a

action

-> m a

run mongo

runDbDefault

Arguments

:: Mongodic site m

=> Action m a

action

-> m a

run mongo with default

model

fetchFrame :: forall m. MonadIO m => ResT -> Action m (Maybe Html)

about frame

updateFrame :: forall m. MonadIO m => Text -> ResT -> Action m ()

fetchPost :: forall m. MonadIO m => ResT -> Action m (Maybe Html)

about post

updatePost :: forall m. MonadIO m => Text -> ResT -> Action m ()

fetchResourceB :: forall m. MonadIO m => ResT -> Action m (Maybe ByteString)

about binary resource

updateResourceB :: forall m. MonadIO m => Binary -> ResT -> Action m ()

fetchResourceT :: forall m. MonadIO m => ResT -> Action m (Maybe Text)

about text resource

updateResourceT :: forall m. MonadIO m => Text -> ResT -> Action m ()

fetchStatic :: forall m. MonadIO m => ResT -> Action m (Maybe Text)

about static

updateStatic :: forall m. MonadIO m => Text -> ResT -> Action m ()

fetchQuery :: forall m. MonadIO m => ResT -> Action m (Maybe Text)

about query

updateQuery :: forall m. MonadIO m => Text -> ResT -> Action m ()

fetchMaybeI

Arguments

:: MonadIO m

=> (ResT -> Action m (Maybe a))

funcion for action

-> [Text]

index

-> Action m (Maybe a)

fetch maybe index

fetchMaybeR

Arguments

:: MonadIO m

=> (ResT -> Action m (Maybe a))

function for action

-> Maybe ResT

index

-> Action m (Maybe a)

fetch maybe resource

for navgation

fetchNav :: (MonadBaseControl IO m, MonadIO m) => Action m [Nav]

fetch the nav

updateNav

Arguments

:: MonadIO m

=> Maybe Text

label

-> Maybe Text

url

-> Maybe Int

order

-> Action m ()

update nav

deleteNav

Arguments

:: MonadIO m

=> Maybe Text

label ( if it is Nothing, the all nav item will be delete)

-> Action m ()

delete the nav

module Yu.Core.Model.Internal