From: Miro Richard Eklund <miro.eklund@semantum.fi>
Date: Wed, 3 May 2017 08:30:28 +0000 (+0300)
Subject: Removed IRequest references and usage from Document/All
X-Git-Tag: v1.29.0~77^2~1
X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=commitdiff_plain;h=refs%2Fchanges%2F77%2F477%2F2;p=simantics%2Fplatform.git

Removed IRequest references and usage from Document/All

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
---

diff --git a/bundles/org.simantics.document.server/scl/Document/All.scl b/bundles/org.simantics.document.server/scl/Document/All.scl
index 98a632699..fa83a224a 100644
--- a/bundles/org.simantics.document.server/scl/Document/All.scl
+++ b/bundles/org.simantics.document.server/scl/Document/All.scl
@@ -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