cardano-addresses-4.0.1: lib/Cardano/Dictionary.hs

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE LambdaCase #-}

{-# OPTIONS_HADDOCK hide #-}

-- |
-- Copyright: 2025 Intersect
-- License: Apache-2.0

module Cardano.Dictionary
    (
    -- * Type
     SupportedDictionary (..)

    -- * Helper
    , dictionaryFromLanguage

    ) where

import Prelude

import Cardano.Dictionary.English
    ( english )
import Cardano.Dictionary.French
    ( french )
import Cardano.Dictionary.Italian
    ( italian )
import Cardano.Dictionary.Japanese
    ( japanese )
import Cardano.Dictionary.Korean
    ( korean )
import Cardano.Dictionary.Spanish
    ( spanish )
import Crypto.Encoding.BIP39.Dictionary
    ( Dictionary )
import GHC.Generics
    ( Generic )


data SupportedDictionary =
      English
    | Italian
    | Japanese
    | French
    | Korean
    | Spanish
    deriving (Generic, Show, Bounded, Enum, Eq)

dictionaryFromLanguage :: SupportedDictionary -> Dictionary
dictionaryFromLanguage = \case
    English -> english
    Italian -> italian
    Japanese -> japanese
    French -> french
    Korean -> korean
    Spanish -> spanish