remove warnings

IntersectMBO · Aug 4, 2020 · 816f202 · 816f202
1 parent cce6edb
commit 816f202
Show file tree

Hide file tree

Showing 5 changed files with 4 additions and 8 deletions.
diff --git a/marlowe-playground-client/src/Examples/JS/Contracts.purs b/marlowe-playground-client/src/Examples/JS/Contracts.purs
@@ -1,4 +1,4 @@
 module Examples.JS.Contracts where
 
 escrow :: String
-escrow = ""
+escrow = ""
diff --git a/marlowe-playground-client/src/HaskellEditor.purs b/marlowe-playground-client/src/HaskellEditor.purs
@@ -13,8 +13,8 @@ import Data.String as String
 import Effect.Aff.Class (class MonadAff)
 import Examples.Haskell.Contracts as HE
 import Halogen (ClassName(..), ComponentHTML, liftEffect)
-import Halogen.Classes (aHorizontal, accentBorderBottom, activeClasses, analysisPanel, closeDrawerArrowIcon, codeEditor, footerPanelBg, jFlexStart, minimizeIcon, panelSubHeader, panelSubHeaderMain, spaceLeft)
-import Halogen.HTML (HTML, a, button, code_, div, div_, img, li, option, pre, pre_, section, select, slot, small_, text, ul)
+import Halogen.Classes (aHorizontal, activeClasses, analysisPanel, closeDrawerArrowIcon, codeEditor, footerPanelBg, jFlexStart, minimizeIcon, panelSubHeader, panelSubHeaderMain, spaceLeft)
+import Halogen.HTML (HTML, a, button, code_, div, div_, img, li, option, pre_, section, select, slot, small_, text, ul)
 import Halogen.HTML.Events (onClick, onSelectedIndexChange)
 import Halogen.HTML.Properties (alt, class_, classes, disabled, src)
 import Halogen.HTML.Properties as HTML

diff --git a/marlowe-playground-client/src/Language/Javascript/Interpreter.js b/marlowe-playground-client/src/Language/Javascript/Interpreter.js
@@ -6,9 +6,7 @@ exports.eval_ = function (left, right, javascript) {
   // include any libraries etc we want by providing a context. be careful!
   const context = { JSON: JSON }
   try {
-    console.log(javascript);
     let res = safeEval(javascript, context);
-    console.log(res);
     return right(res);
   } catch (error) {
     return (left(error.toString()));

diff --git a/marlowe-playground-client/src/Language/Javascript/Interpreter.purs b/marlowe-playground-client/src/Language/Javascript/Interpreter.purs
@@ -1,7 +1,6 @@
 module Language.Javascript.Interpreter where
 
 import Prelude
-
 import Control.Monad.Except (runExcept)
 import Data.Either (Either(..))
 import Data.Function.Uncurried (Fn3, runFn3)

diff --git a/marlowe-playground-client/src/Simulation.purs b/marlowe-playground-client/src/Simulation.purs
@@ -26,7 +26,6 @@ import Data.String (codePointFromChar)
 import Data.String as String
 import Data.Traversable (traverse)
 import Data.Tuple (Tuple(..), fst, snd)
-import Debug.Trace (trace)
 import Effect.Aff.Class (class MonadAff, liftAff)
 import Effect.Class (class MonadEffect, liftEffect)
 import FileEvents (readFileFromDragEvent)
@@ -286,7 +285,7 @@ handleAction _ AnalyseContract = do
   checkContractForWarnings contract state = do
     let
       msgString = unsafeStringify <<< encode $ CheckForWarnings (encodeJSON false) contract state
-    trace msgString \_ -> H.raise (WebsocketMessage msgString)
+    H.raise (WebsocketMessage msgString)
 
 handleAction _ AnalyseReachabilityContract = do
   currContract <- use _currentContract