[move actions to ...5001:/tutorial/actions/action type urls
thomashartman1@gmail.com**20080904213703] hunk ./src/Controller.hs 33
+      ++ [ msgToSp "Quoth this server... 404." ]
hunk ./src/Controller.hs 45
-templateservedir d  = dir d [ templateserve ]
-templateserve = ServerPartT $ \rq -> case rqPaths rq of
-                             [tmpl] -> do
-                                 ( ioMsgToWeb . tutlayout [] ) (traceMsg "tmpl: " tmpl)
-                             _ -> noHandle 
+-- templateservedir d  = dir d [ templateserve ]
+templateserve = ServerPartT $
+  \rq -> case rqPaths rq of
+     [tmpl] -> ( ioMsgToWeb . tutlayout [] ) (traceMsg "tmpl: " tmpl)
+     _ -> noHandle 
hunk ./src/Controller.hs 53
-    , exactdir "/tutorial/view-all-users"
-        [do users <- anyRequest $  query ListUsers
-            ioMsgToSp $ tutlayout [("userList", (show users))] "view-all-users" ]
-    , dir "tutorial" [ templateserve ]
-    , dir "newuser" [methodSP POST $ withData newUserPage]
-    , dir "view" [ spLoginstatus ]                    
-    , dir "login" [ methodSP POST loginaction ]
-  ]
+    , dir "tutorial" [
+        exactdir "/view-all-users" [ viewAllUsers ]
+        , exactdir "/view" [ spLoginstatus ] 
+        , templateserve
+        , dir "actions" [
+            dir "login" [ methodSP POST loginaction ]
+            , dir "newuser" [methodSP POST $ withData newUserPage]
+        ]
+      ]
+    ]
+
+viewAllUsers = do
+  users <- anyRequest $  query ListUsers
+  ioMsgToSp $ tutlayout [("userList", (show users))] "view-all-users" 
hunk ./src/ControllerUsingTemplates.hs 16
-        [ ioMsgToSp ( withTemplateDir "templates"  $ renderDef [("favoriteAnimal", "giraffe")] "myhomepage" ) ]
+        [ ioMsgToSp ( renderTemplateDir "templates" [("favoriteAnimal", "giraffe")] "myhomepage" ) ]
hunk ./templates/login.st 3
-    <form action="/login" method="post">
+    <form action="/tutorial/actions/login" method="post">
hunk ./templates/menubar.st 13
-           |<a href="/view" color="brown">logged in as Orig</a>
+           |<a href="/tutorial/view" color="brown">logged in as Orig</a>
hunk ./templates/register.st 3
-    <form action="/newuser" method="post">
+    <form action="actions/newuser" method="post">