]> gerrit.simantics Code Review - simantics/platform.git/commitdiff
Removed IRequest references and usage from Document/All 77/477/2
authorMiro Richard Eklund <miro.eklund@semantum.fi>
Wed, 3 May 2017 08:30:28 +0000 (11:30 +0300)
committerMiro Richard Eklund <miro.eklund@semantum.fi>
Wed, 3 May 2017 14:29:26 +0000 (17:29 +0300)
An recent change (Revision 82ed7c74) to Document/All.scl  added IRequest
usage and references. IRequest should not be used in Documents/All.
82ed7c74 broke SimupediaServer's Request.scl, since
Request.scl uses Document/All and also already had IRequest defined.

refs #7173

Change-Id: I15581be91cc98756025afdd6acbf72318de84228

bundles/org.simantics.document.server/scl/Document/All.scl

index 98a63269978b01597d1d5ea7fb14628f39fec688..fa83a224acfc2d7076af4417e2f2e181680e93e7 100644 (file)
@@ -150,15 +150,3 @@ consoleLog state message = do
 
 contextDocument :: CommandContext -> <Proc> IDocument
 contextDocument ctx = justValue ctx "__document__"
-
-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