coding stanrdards

remove redundant trace
IntersectMBO · Dec 16, 2024 · 7a3a998 · 7a3a998
1 parent 7c674c9
commit 7a3a998
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 4 deletions.
diff --git a/command-line/lib/Command/Script/Hash.hs b/command-line/lib/Command/Script/Hash.hs
@@ -1,5 +1,4 @@
 {-# LANGUAGE FlexibleContexts #-}
-{-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE NamedFieldPuns #-}
 {-# LANGUAGE OverloadedStrings #-}
 

diff --git a/command-line/test/Command/Script/HashSpec.hs b/command-line/test/Command/Script/HashSpec.hs
@@ -17,8 +17,6 @@ import Test.Hspec
 import Test.Utils
     ( cli, describeCmd )
 
-import qualified Debug.Trace as TR
-
 spec :: Spec
 spec = do
     describeCmd [ "script", "hash" ] $ do
@@ -163,7 +161,7 @@ spec = do
 specScriptHashProper :: String -> String -> SpecWith ()
 specScriptHashProper expected script = it (script <> " => " <> expected) $ do
     out <- cli ["script", "hash", script] ""
-    TR.trace("out: "<> show out) $ out `shouldBe` expected
+    out `shouldBe` expected
 
 specScriptInvalid :: ErrValidateScript -> String -> SpecWith ()
 specScriptInvalid errMsg script = it (script <> " => " <> show errMsg) $ do