Commits

Luke Plant committed 4558222

Stubs for adminMenuView

Comments (0)

Files changed (3)

src/Blog/Links.hs

 aboutUrl          = Settings.root_url ++ "about/"
 feedsUrl          = Settings.root_url ++ "feeds/"
 loginUrl          = Settings.root_url ++ "login/"
-
-adminMenuUrl      = Settings.root_url 
+adminMenuUrl      = Settings.root_url ++ "admin/"

src/Blog/Routes.hs

          , "about/" <+/> empty                        //-> infoPageView "about"   $ []
          , "feeds/" <+/> empty                        //-> infoPageView "feeds"   $ []
          , "login/" <+/> empty                        //-> loginView              $ []
+         , "admin/" <+/> empty                        //-> adminMenuView          $ [loginRequired]
          , "debug/" <+/> anyParam                     //-> debug                  $ []
          ]

src/Blog/Views.hs

      ]
 
 
+adminMenuView = undefined
+loginRequired = undefined
+
 -- Utilities
 
 getPage req = (getGET req "p") `captureOrDefault` 1 :: Int