Just model -> model
Nothing -> fail "No active model."
+"Gives the current active model if it exists or Nothing otherwise."
+possibleCurrentModel :: <ReadGraph> Maybe Resource
+possibleCurrentModel = activeModel (currentProject ())
+
startUndoPoint :: String -> <WriteGraph> ()
startUndoPoint string = do
markUndoPoint ()