[925] Remove debug tracing

IntersectMBO · Oct 23, 2019 · c3162ec · c3162ec
1 parent 40661cd
commit c3162ec
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/byron/semantics/executable-spec/src/Control/State/Transition/Generator.hs b/byron/semantics/executable-spec/src/Control/State/Transition/Generator.hs
@@ -93,8 +93,6 @@ import qualified Hedgehog.Extra.Manual as Manual
 
 import           Test.Goblin (Goblin (..), GoblinData, SeedGoblin (..))
 
-import qualified Debug.Trace as D
-
 class STS s => HasTrace s where
   -- | Generate an initial environment that is based on the given trace length.
   envGen
@@ -332,7 +330,7 @@ genTraceOfLength aTraceLength profile env st0 aSigGen =
           loop (d - 1) sti acc
         Just sig ->
           case applySTS @s (TRC(env, sti, sig)) of
-            Left _err  -> D.trace (show _err) (loop (d - 1) sti acc)
+            Left _err  -> loop (d - 1) sti acc
             Right sti' -> loop (d - 1) sti' ((sti', sigTree) : acc)
 
     interleaveSigs