Copyright | (C) 2017-2018 Johann Lee <me@qinka.pro> |
---|---|
Maintainer | me@qinka.pro |
Safe Haskell | None |
Language | Haskell2010 |
License : GPL3 Stability : experimental Portability : unknown
The codes for model
- runDb :: Mongodic site m => AccessMode -> Database -> Action m a -> m a
- runDbDefault :: Mongodic site m => Action m a -> m a
- fetchFrame :: forall m. MonadIO m => ResT -> Action m (Maybe Html)
- updateFrame :: forall m. MonadIO m => Text -> ResT -> Action m ()
- fetchPost :: forall m. MonadIO m => ResT -> Action m (Maybe Html)
- updatePost :: forall m. MonadIO m => Text -> ResT -> Action m ()
- fetchResourceB :: forall m. MonadIO m => ResT -> Action m (Maybe ByteString)
- updateResourceB :: forall m. MonadIO m => Binary -> ResT -> Action m ()
- fetchResourceT :: forall m. MonadIO m => ResT -> Action m (Maybe Text)
- updateResourceT :: forall m. MonadIO m => Text -> ResT -> Action m ()
- fetchStatic :: forall m. MonadIO m => ResT -> Action m (Maybe Text)
- updateStatic :: forall m. MonadIO m => Text -> ResT -> Action m ()
- fetchQuery :: forall m. MonadIO m => ResT -> Action m (Maybe Text)
- updateQuery :: forall m. MonadIO m => Text -> ResT -> Action m ()
- fetchMaybeI :: MonadIO m => (ResT -> Action m (Maybe a)) -> [Text] -> Action m (Maybe a)
- fetchMaybeR :: MonadIO m => (ResT -> Action m (Maybe a)) -> Maybe ResT -> Action m (Maybe a)
- fetchNav :: (MonadBaseControl IO m, MonadIO m) => Action m [Nav]
- updateNav :: MonadIO m => Maybe Text -> Maybe Text -> Maybe Int -> Action m ()
- deleteNav :: MonadIO m => Maybe Text -> Action m ()
- module Yu.Core.Model.Internal
run database
:: Mongodic site m | |
=> AccessMode | access mode |
-> Database | database |
-> Action m a | action |
-> m a |
run mongo
model
fetchResourceB :: forall m. MonadIO m => ResT -> Action m (Maybe ByteString) Source #
about binary resource
fetch maybe index
:: MonadIO m | |
=> (ResT -> Action m (Maybe a)) | function for action |
-> Maybe ResT | index |
-> Action m (Maybe a) |
fetch maybe resource
for navgation
update nav
delete the nav
module Yu.Core.Model.Internal