[23] replace module define passphrase types with address derivation ones

cardano-foundation · Mar 14, 2019 · f0d2662 · f0d2662
1 parent 7388eeb
commit f0d2662
Showing 1 changed file with 4 additions and 8 deletions.
diff --git a/src/Cardano/Wallet/Kernel/Wallet.hs b/src/Cardano/Wallet/Kernel/Wallet.hs
@@ -16,6 +16,8 @@ import Prelude
 
 import Cardano.Wallet
     ( Wallet )
+import Cardano.Wallet.AddressDerivation
+    ( Passphrase )
 import Cardano.Wallet.AddressDiscovery
     ( AddressPoolGap )
 import Cardano.Wallet.Mnemonic
@@ -24,16 +26,13 @@ import Cardano.Wallet.Primitive
     ( Coin )
 import Crypto.Encoding.BIP39
     ( ValidMnemonicSentence )
-import Data.ByteArray
-    ( ScrubbedBytes )
 import Data.Text
     ( Text )
 import Data.Time.Units
     ( Microsecond )
 import Fmt
     ( Buildable (..), fmt )
 
-
 -- | Errors
 data CreateWalletError = CreateWalletError
 
@@ -65,21 +64,18 @@ data NewWallet =
       _mnemonicSentence
         :: !(Mnemonic mw)
     , _mnemonicSentencePassphrase
-        :: !(Maybe (Mnemonic mw))
+        :: !(Maybe (Passphrase "generation"))
     , _name
         :: !WalletName
     , _passphrase
-        :: !WalletPassPhrase
+        :: !(Passphrase "encryption")
     , _addressPoolGap
         :: !AddressPoolGap
     }
 
 newtype WalletName = WalletName { _getWalletName :: Text }
     deriving (Eq, Show)
 
-newtype WalletPassPhrase = WalletPassPhrase ScrubbedBytes
-    deriving (Eq, Show)
-
 newtype WalletId = WalletId Text
     deriving (Eq, Show)