remove more things + weeder

.weeder.yaml

@@ -34,3 +34,13 @@
       - name: Module not compiled
       - module: Cardano.Launcher.Windows
 
+- package:
+  - name: cardano-wallet-jormungandr
+  - section:
+    - name: test:unit
+    - message:
+      - name: Weeds exported
+      - module:
+        - name: Spec
+        - identifier: main
+

lib/jormungandr/cardano-wallet-jormungandr.cabal

@@ -34,12 +34,12 @@ library
   build-depends:
       base
     , cardano-wallet-core
-    , binary
-    , bytestring
-    , cardano-crypto
-    , cryptonite
-    , digest
-    , memory
+    , fmt
+--    , binary
+--    , bytestring
+--    , cardano-crypto
+--    , cryptonite
+--    , digest
     , text
     , text-class
   hs-source-dirs:
@@ -49,8 +49,6 @@ library
       Cardano.Wallet.Binary.Jormungandr
       Cardano.Wallet.Compatibility.Jormungandr
       Cardano.Wallet.Transaction.Jormungandr
-      Data.Packfile
-      Servant.Extra.ContentTypes
 
 test-suite unit
   default-language:
@@ -67,23 +65,11 @@ test-suite unit
       -Werror
   build-depends:
       base
-    , aeson
-    , base58-bytestring
     , bytestring
-    , cardano-crypto
     , cardano-wallet-core
     , cardano-wallet-jormungandr
-    , cborg
-    , containers
-    , digest
-    , fmt
-    , generic-arbitrary
-    , hspec
-    , hspec-golden-aeson
     , memory
-    , QuickCheck
-    , text-class
-    , transformers
+    , hspec
   type:
      exitcode-stdio-1.0
   hs-source-dirs:

lib/jormungandr/src/Cardano/Wallet/Binary/Jormungandr.hs

@@ -10,5 +10,3 @@
 module Cardano.Wallet.Binary.Jormungandr
     (
     ) where
-
-

lib/jormungandr/test/unit/Cardano/Wallet/Binary/JormungandrSpec.hs

@@ -4,15 +4,14 @@
 
 module Cardano.Wallet.Binary.JormungandrSpec
     ( spec
-
-    -- * Helpers
-    , unsafeDeserialiseFromBytes
     ) where
 
 import Prelude
 
 import Cardano.Wallet.Binary.Jormungandr
     ()
+import Data.ByteString
+    ( ByteString )
 
 import Cardano.Wallet.Primitive.Types
     ( BlockHeader (..), Hash (..), SlotId (..) )
@@ -22,13 +21,6 @@ import Data.ByteArray.Encoding
 import Test.Hspec
     ( Spec, describe, shouldBe, xit )
 
-import qualified Codec.CBOR.Decoding as CBOR
---import qualified Codec.CBOR.Encoding as CBOR
-import qualified Codec.CBOR.Read as CBOR
---import qualified Codec.CBOR.Write as CBOR
-import qualified Data.ByteString as BS
-import qualified Data.ByteString.Lazy as BL
-
 {-# ANN spec ("HLint: ignore Use head" :: String) #-}
 spec :: Spec
 spec = do
@@ -38,11 +30,11 @@ spec = do
             `shouldBe`
             BlockHeader (SlotId 0 0) (Hash "?")
   where
+    unsafeDeserialiseFromBytes = undefined
     decodeGenesisBlock = error "TODO: import from Binary.Jormungandr"
 
-genesisBlock :: BL.ByteString
-genesisBlock =
-    either error BL.fromStrict $ convertFromBase @BS.ByteString Base16
+genesisBlock :: ByteString
+genesisBlock = either error id $ convertFromBase @ByteString Base16
     "005200000000009f000000000000000000000000ffadebfecd59d9eaa12e903a\
     \d58100f7c1e35899739c3d05d022835c069d2b4f000000000000000000000000\
     \00000000000000000000000000000000000000000047000048000000005cc1c2\
@@ -51,9 +43,3 @@ genesisBlock =
     \0001000000ff0005000006000000000000000000000000000000000000000000\
     \0000000000002c020001833324c37869c122689a35917df53a4f2294a3a52f68\
     \5e05f5f8e53b87e7ea452f000000000000000e"
-
--- | CBOR deserialise without error handling - handy for prototypes or testing.
-unsafeDeserialiseFromBytes :: (forall s. CBOR.Decoder s a) -> BL.ByteString -> a
-unsafeDeserialiseFromBytes decoder bytes =
-    either (\e -> error $ "unsafeDeserialiseFromBytes: " <> show e) snd $
-        CBOR.deserialiseFromBytes decoder bytes