General State Editor
[darcs-mirror-latutman.git] / haskell / State.hs
index beff784..ccb838d 100644 (file)
@@ -38,6 +38,11 @@ instance Migrate Old.Assignment Assignment where
 $(inferStartState ''State) 
 $(inferRecordUpdaters ''State) 
 
+getCompleteState :: Query State State
+getCompleteState = askState
+
+putCompleteState :: State -> Update State ()
+putCompleteState = putState
 
 listAssignments :: Query State AssignmentsWithHandIns
 listAssignments = do   s <- askState
@@ -58,7 +63,6 @@ listHandIns = do s <- askState
                     mkCell id name = TableCell $ listToMaybe $ filter (selectHandIn name id) his
                 return $ Table (map TableHead colHeads) rows
 
-
 getAssignment :: AssName ->  Query State (Maybe Assignment)
 getAssignment name = return . findAssignment name . assignments =<< askState
 
@@ -102,6 +106,7 @@ deleteHandIn hi = withHandIns $ modify (removeHandIn hi)
 
 $(expose ['listAssignments, 'getAssignment, 'addAssignment, 'updateAssignment, 'deleteAssignment,
           'listHandIns, 'getHandIn, 'addHandIn, 'updateHandIn, 'deleteHandIn,
-         'listStudents, 'getStudent, 'addStudent, 'updateStudent, 'deleteStudent
+         'listStudents, 'getStudent, 'addStudent, 'updateStudent, 'deleteStudent,
+         'getCompleteState, 'putCompleteState
          ])