clckwrks-plugin-ircbot 0.6.3 → 0.6.5

raw patch · 2 files changed

+5/−39 lines, 2 filesdep ~clckwrks

Dependency ranges changed: clckwrks

Files

• Clckwrks/IrcBot/Page/Template.hs +3/−37
• clckwrks-plugin-ircbot.cabal +2/−2

@@ -22,44 +22,10 @@          -> IrcBotM Response template ttl hdrs bdy =     do p <- plugins <$> get-       mTheme <- getTheme p        (Just clckShowFn) <- getPluginRouteFn p (pluginName clckPlugin)-       case mTheme of-         Nothing      -> escape $ internalServerError $ toResponse $ ("No theme package is loaded." :: Text)-         (Just theme) ->-             do hdrXml <- fmap (map unClckChild) $ unXMLGenT $ asChild hdrs -- <%> <link rel="stylesheet" type="text/css" href=(IrcBotData "style.css") /> <% hdrs %></%>-                bdyXml <- fmap (map unClckChild) $ unXMLGenT $ asChild bdy-                fmap toResponse $ mapClckT f $ ClckT $ withRouteT (\f -> clckShowFn) $ unClckT $ unXMLGenT $ (_themeTemplate theme ttl hdrXml bdyXml)+       hdrXml <- fmap (map unClckChild) $ unXMLGenT $ asChild hdrs -- <%> <link rel="stylesheet" type="text/css" href=(IrcBotData "style.css") /> <% hdrs %></%>+       bdyXml <- fmap (map unClckChild) $ unXMLGenT $ asChild bdy+       fmap toResponse $ mapClckT f $ ClckT $ withRouteT (\f -> clckShowFn) $ unClckT $ (themeTemplate p (ThemeStyleId 0) ttl hdrXml bdyXml)     where       f :: ServerPartT IO (a, ClckState) -> ReaderT IrcBotConfig (ServerPartT IO) (a, ClckState)       f m = ReaderT $ \_ -> m--{---template :: ( EmbedAsChild IrcBotM headers-            , EmbedAsChild IrcBotM body-            ) =>-            String-         -> headers-         -> body-         -> IrcBotM Response-template ttl hdrs bdy =-    do pageTemplate <- ircBotPageTemplate <$> ask-       fmap toResponse $ unXMLGenT $-            pageTemplate ttl <%> <link rel="stylesheet" type="text/css" href=(DarcsData "style.css") /> <% hdrs %></%> bdy--}-{---template :: ( EmbedAsChild (Clck ClckURL) headers-            , EmbedAsChild (Clck ClckURL) body-            ) =>-            String-         -> headers-         -> body-         -> IrcBotM Response-template ttl hdrs bdy =-    do pageTemplate <- ircBotPageTemplate <$> ask-       fmap toResponse $ mapClckT lift $ unXMLGenT $-            pageTemplate ttl hdrs bdy---}

@@ -1,5 +1,5 @@ Name:                clckwrks-plugin-ircbot-Version:             0.6.3+Version:             0.6.5 Synopsis:            ircbot plugin for clckwrks Homepage:            http://clckwrks.com/ License:             BSD3@@ -43,7 +43,7 @@     acid-state             >= 0.12 && < 0.13,     attoparsec             == 0.10.*,     blaze-html             >= 0.5 && < 0.7,-    clckwrks               >= 0.18 && < 0.20,+    clckwrks               >= 0.21 && < 0.22,     containers             >= 0.4 && < 0.6,     directory              >= 1.1 && < 1.3,     filepath               >= 1.2 && < 1.4,