Add FromText, ToText instances for ByronWalletStyle

cardano-foundation · Feb 24, 2020 · 2ef8c65 · 2ef8c65
1 parent 52281d9
commit 2ef8c65
Showing 1 changed file with 14 additions and 1 deletion.
diff --git a/lib/core/src/Cardano/Wallet/Api/Types.hs b/lib/core/src/Cardano/Wallet/Api/Types.hs
@@ -186,7 +186,13 @@ import Data.Quantity
 import Data.Text
     ( Text, split )
 import Data.Text.Class
-    ( FromText (..), TextDecodingError (..), ToText (..) )
+    ( CaseStyle (..)
+    , FromText (..)
+    , TextDecodingError (..)
+    , ToText (..)
+    , fromTextToBoundedEnum
+    , toTextFromBoundedEnum
+    )
 import Data.Time.Clock
     ( NominalDiffTime, UTCTime )
 import Data.Time.Text
@@ -230,6 +236,13 @@ data ByronWalletStyle
     | Icarus
     | Trezor
     | Ledger
+    deriving (Show, Generic, Eq, Bounded, Enum)
+
+instance FromText ByronWalletStyle where
+    fromText = fromTextToBoundedEnum SnakeLowerCase
+
+instance ToText ByronWalletStyle where
+    toText = toTextFromBoundedEnum SnakeLowerCase
 
 data SndFactor
     = SndFactor