<commit_before>{- | This is a temporary module to help migration @V0@ datatypes into @V1@ datatypes.
-}
{-# LANGUAGE LambdaCase           #-}
{-# LANGUAGE TypeSynonymInstances #-}

-- This pragma is required for the 'IsBackupPhrase' type family that is
-- otherwise complained about as "unused"
{-# OPTIONS_GHC -fno-warn-redundant-constraints #-}

module Cardano.Wallet.API.V1.Migration.Types
    ( Migrate(..)
    , migrate
    ) where

import           Universum hiding (elems)

import qualified Control.Lens as Lens
import qualified Control.Monad.Catch as Catch
import           Data.Map (elems)
import           Data.Time.Clock.POSIX (POSIXTime)
import           Data.Time.Units (fromMicroseconds, toMicroseconds)
import           Data.Typeable (typeRep)
import           Formatting (sformat)

import           Cardano.Wallet.API.V1.Errors as Errors
import           Cardano.Wallet.API.V1.Types (V1 (..))
import qualified Cardano.Wallet.API.V1.Types as V1
import qualified Pos.Client.Txp.Util as V0
import           Pos.Core (addressF)
import qualified Pos.Core.Common as Core
import qualified Pos.Core.Slotting as Core
import qualified Pos.Core.Txp as Txp
import           Pos.Crypto (decodeHash)
import qualified Pos.Txp.Toil.Types as V0
import           Pos.Util.Mnemonic (Mnemonic)
import qualified Pos.Util.Servant as V0
import qualified Pos.Wallet.Web.ClientTypes.Instances ()<commit_msg>[CO-336] Remove redundant pragma<commit_after>{- | This is a temporary module to help migration @V0@ datatypes into @V1@ datatypes.
-}
{-# LANGUAGE LambdaCase           #-}
{-# LANGUAGE TypeSynonymInstances #-}

module Cardano.Wallet.API.V1.Migration.Types
    ( Migrate(..)
    , migrate
    ) where

import           Universum hiding (elems)

import qualified Control.Lens as Lens
import qualified Control.Monad.Catch as Catch
import           Data.Map (elems)
import           Data.Time.Clock.POSIX (POSIXTime)
import           Data.Time.Units (fromMicroseconds, toMicroseconds)
import           Data.Typeable (typeRep)
import           Formatting (sformat)

import           Cardano.Wallet.API.V1.Errors as Errors
import           Cardano.Wallet.API.V1.Types (V1 (..))
import qualified Cardano.Wallet.API.V1.Types as V1
import qualified Pos.Client.Txp.Util as V0
import           Pos.Core (addressF)
import qualified Pos.Core.Common as Core
import qualified Pos.Core.Slotting as Core
import qualified Pos.Core.Txp as Txp
import           Pos.Crypto (decodeHash)
import qualified Pos.Txp.Toil.Types as V0
import           Pos.Util.Mnemonic (Mnemonic)
import qualified Pos.Util.Servant as V0
import qualified Pos.Wallet.Web.ClientTypes.Instances ()
{'fraction_non_alphanumeric': 0.08950151057401813, 'fraction_numerical': 0.00944108761329305, 'mean_word_length': 2.9894578313253013, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5827998', 'n_tokens_mistral': 837, 'n_tokens_neox': 831, 'n_words': 235}