General State Editor
[darcs-mirror-latutman.git] / haskell / Main.hs
index b49234e..66d454a 100644 (file)
@@ -11,6 +11,8 @@ import Control.Monad.Reader
 import State
 import Types
 
+import MyHAppS
+
 
 main = putStrLn "Running..." >> stdMain (simpleHTTP http :*: stateFuns)
   where http = [--debugFilter -- we want to see debug messages in the console
@@ -76,6 +78,7 @@ main = putStrLn "Running..." >> stdMain (simpleHTTP http :*: stateFuns)
                                                ]]
                                        ]]
                                ],
+                       dir "maintenance" (plainEdit GetCompleteState PutCompleteState),
                        dir "student" [
                                method GET $ query ListStudents >>= ok . Students,
                                dir "add" [