fix tests

IntersectMBO · Jul 10, 2020 · 15665db · 15665db
1 parent 5d2113d
commit 15665db
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 4 deletions.
diff --git a/marlowe-playground-client/src/Marlowe/Holes.purs b/marlowe-playground-client/src/Marlowe/Holes.purs
@@ -232,7 +232,7 @@ constructMarloweType constructorName (MarloweHole { row, column }) m = case Map.
   Just [] -> constructorName
   Just vs -> parens row column $ constructorName <> " " <> intercalate " " (map showArgument vs)
   where
-  showArgument EmptyArrayArg = "[ ]"
+  showArgument EmptyArrayArg = "[]"
 
   showArgument (ArrayArg arg) = "[ ?" <> arg <> " ]"
 

diff --git a/marlowe-playground-client/src/Simulation.purs b/marlowe-playground-client/src/Simulation.purs
@@ -14,7 +14,6 @@ import Data.BigInteger (BigInteger, fromString, fromInt)
 import Data.Either (Either(..), note)
 import Data.Enum (toEnum, upFromIncluding)
 import Data.HeytingAlgebra (not, (&&))
-import Data.Int (toNumber)
 import Data.Lens (_Just, assign, modifying, over, preview, to, use, view, (^.))
 import Data.Lens.Index (ix)
 import Data.Lens.NonEmptyList (_Head)
@@ -27,7 +26,6 @@ import Data.String (Pattern(..), codePointFromChar, stripPrefix, stripSuffix, tr
 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)
@@ -84,7 +82,6 @@ import Web.DOM.HTMLCollection as WC
 import Web.HTML as Web
 import Web.HTML.HTMLDocument (toDocument)
 import Web.HTML.Window as W
-import Web.HTML.Window as Window
 import WebSocket (WebSocketRequestMessage(..))
 
 mkComponent :: forall m. MonadEffect m => MonadAff m => SPSettings_ SPParams_ -> H.Component HTML Query Unit Message m