[working on display login name
thomashartman1@gmail.com**20080824210038] hunk ./src/Controller.hs 13
+
hunk ./src/Controller.hs 17
+
+
hunk ./src/Controller.hs 20
+import HAppS.State
+import Control.Monad.Reader
+
hunk ./src/Controller.hs 35
-       , dir "view" [withDataFn (liftM Just (readCookieValue "sid") `mplus` return Nothing) viewPage]
-       , dir "list" userListPage ]
+       , dir "view" viewLoggedIn
+       ]
+
+viewLoggedIn = [ do withDataFn rq viewPage ]
+  where
+    -- rq :: RqData (Maybe SessionKey)
+    rq :: ReaderT ([(String, Input)], [(String, Cookie)]) Maybe (Maybe SessionKey)
+    rq = ( liftM Just $ readCookieValue "sid")
+                                 `mplus`
+                                 ( return Nothing )
+    viewPage (Just sid) = [anyRequest $ do
+      ses <- query $ (GetSession $ sid)
+      ( ( ioMsgToWeb . withBaseContentW ) $ (maybe "not logged in" show (ses :: Maybe SessionData)) :: WebT IO Response)]
+    viewPage Nothing =
+      [ msgToSp "Not logged in"]
+
hunk ./src/Controller.hs 81
-         , exactdir "/tutorial/viewAllUsers" [ ioMsgToSp $ withBaseTemplateW [] "viewAllUsers" ]
+         , exactdir "/tutorial/view-all-users"
+             [do users <- anyRequest $  query ListUsers
+                 ioMsgToSp $ withBaseTemplateW [("userList", (show users))] "view-all-users" ]
hunk ./src/Model.hs 45
-viewPage (Just sid) = [anyRequest $ do
-  ses <- query $ (GetSession $ sid)
-  ( ( ioMsgToWeb . withBaseContentW ) $ "Cookie value: " ++ (maybe "not logged in" show (ses :: Maybe SessionData)) :: WebT IO Response)]
-viewPage Nothing =
-  [ msgToSp "Not logged in"]
+
hunk ./src/View.hs 17
-  renderTut ( [("contentarea",content)] ++ menuAttrs) "base"
+  renderTut ( [("contentarea",content)] ++ menuAttrs ++ attrs) "base"
hunk ./templates/header.st 19
-           |<a href="/list">view all users orig</a>