tmp: workaround failing OddWord

cardano-foundation · Nov 21, 2022 · 6dca4e5 · 6dca4e5
1 parent 135c5e8
commit 6dca4e5
Show file tree

Hide file tree

Showing 3 changed files with 1 addition and 7 deletions.
diff --git a/lib/text-class/text-class.cabal b/lib/text-class/text-class.cabal
@@ -35,7 +35,6 @@ library
     , text
     , time
     , hspec
-    , OddWord
     , QuickCheck
   hs-source-dirs:
       src

diff --git a/lib/wallet/cardano-wallet.cabal b/lib/wallet/cardano-wallet.cabal
@@ -136,7 +136,6 @@ library
     , network-uri
     , nothunks
     , ntp-client
-    , OddWord
     , optparse-applicative
     , ouroboros-consensus
     , ouroboros-consensus-byron
@@ -449,7 +448,6 @@ library cardano-wallet-api-http
     , network
     , network-uri
     , ntp-client
-    , OddWord
     , optparse-applicative
     , ouroboros-network
     , quiet
@@ -774,7 +772,6 @@ test-suite unit
     , network
     , network-uri
     , nothunks
-    , OddWord
     , openapi3                     ==3.2.2
     , optparse-applicative
     , ouroboros-consensus

diff --git a/lib/wallet/src/System/Random/StdGenSeed.hs b/lib/wallet/src/System/Random/StdGenSeed.hs
@@ -28,8 +28,6 @@ import Data.Bits
     ( (.|.) )
 import Data.Word
     ( Word64 )
-import Data.Word.Odd
-    ( Lit, OddWord )
 import GHC.Generics
     ( Generic )
 import Quiet
@@ -61,7 +59,7 @@ newtype StdGenSeed = StdGenSeed
     deriving (Eq, Bounded, Generic, Ord)
     deriving Show via (Quiet StdGenSeed)
 
-type Word127 = OddWord Integer (Lit 127)
+type Word127 = Word64 -- FIXME
 
 -- | Creates a new 'StdGenSeed' from within a random monadic context.
 --