+
+importJava "org.simantics.document.server.io.IRequest" where
+ @private
+ data IRequest
+
+ @private
+ getParameter :: IRequest -> String -> <Proc> Maybe String
+
+possibleQueryParameterFromContext :: CommandContext -> String -> <Proc> Maybe String
+possibleQueryParameterFromContext context parameter = do
+ request = fromJust $ possibleValue context "__request__"
+ getParameter request parameter