[add some shortcut links to admin and login
Jeremy Shaw <jeremy@seereason.com>**20120110181816
 Ignore-this: de4b7a83565dca1a203476ac2c7093a6
] hunk ./clckwrks-dot-com/Main.hs 120
-       msum $  [ jsHandlers cc
+       msum $  [ {- jsHandlers cc
hunk ./clckwrks-dot-com/Main.hs 123
-               , routeSite cc mediaConfig url
+               , dir "login" $ seeOtherURL (C $ Auth $ AuthURL A_Login)
+               , dir "admin" $ seeOtherURL (C $ Admin Console) 
+-}
+                routeSite cc mediaConfig url
hunk ./clckwrks-dot-com/Main.hs 131
-runTheSite :: Site SiteURL (ClckT SiteURL (ServerPartT IO) Response) -> IO ()
-runTheSite site = undefined
-
+{-
hunk ./clckwrks-dot-com/Main.hs 156
-
+-}
hunk ./clckwrks-dot-com/Main.hs 180
-route :: Happstack m => ClckwrksConfig url -> SitePlus url (m Response) -> m Response
+route :: Happstack m => ClckwrksConfig SiteURL -> SitePlus SiteURL (m Response) -> m Response
hunk ./clckwrks-dot-com/Main.hs 187
+            , dir "login"       $ seeOther ((siteShowURL sitePlus) (C $ Auth $ AuthURL A_Login) []) (toResponse ())
+            , dir "admin"       $ seeOther ((siteShowURL sitePlus) (C $ Admin Console) []) (toResponse ())
hunk ./clckwrks-theme-basic/Theme/Home.hs 47
-   <p><a href=(Admin Console)>admin</a></p>
-   <p><a href=(Auth $ AuthURL A_Login)>login</a></p>
-
hunk ./clckwrks/Clckwrks/Server.hs 74
-
hunk ./clckwrks/Clckwrks/Server.hs 121
-    mapRouteT (\m -> evalStateT m clckState) $ (unClckT $ routeClck cc url) 
+    mapRouteT (\m -> evalStateT m clckState) $ (unClckT $ routeClck cc url)