clckwrks-plugin-bugs 0.6.4 → 0.6.5

raw patch · 2 files changed

+6/−20 lines, 2 filesdep ~clckwrksdep ~clckwrks-plugin-page

Dependency ranges changed: clckwrks, clckwrks-plugin-page

Files

• Clckwrks/Bugs/Page/Template.hs +3/−17
• clckwrks-plugin-bugs.cabal +3/−3

@@ -23,24 +23,10 @@          -> BugsM 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 <%> <link rel="stylesheet" type="text/css" href=(BugsData "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 <%> <link rel="stylesheet" type="text/css" href=(BugsData "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 BugsConfig (ServerPartT IO) (a, ClckState)       f m = ReaderT $ \_ -> m----       fmap toResponse $---            themeTemplate p ttl <%> <link rel="stylesheet" type="text/css" href=(BugsData "style.css") /> <% hdrs %></%> bdy----       let pageTemplate = undefined -- <- bugsPageTemplate <$> ask---       undefined-{--       fmap toResponse $ unXMLGenT $-            pageTemplate ttl <%> <link rel="stylesheet" type="text/css" href=(BugsData "style.css") /> <% hdrs %></%> bdy--}

@@ -1,5 +1,5 @@ Name:                clckwrks-plugin-bugs-Version:             0.6.4+Version:             0.6.5 Synopsis:            bug tracking plugin for clckwrks Homepage:            http://clckwrks.com/ License:             BSD3@@ -43,8 +43,8 @@     base                    < 5,     acid-state             >= 0.12 && < 0.13,     attoparsec             == 0.10.*,-    clckwrks               >= 0.18 && < 0.21,-    clckwrks-plugin-page   == 0.2.*,+    clckwrks               >= 0.21 && < 0.22,+    clckwrks-plugin-page   == 0.3.*,     containers             >= 0.4 && < 0.6,     directory              >= 1.1 && < 1.3,     filepath               >= 1.2 && < 1.4,