Sqlite: Fix instance PersistField TxState

It was looping infinitely.
cardano-foundation · May 16, 2019 · a6430da · a6430da
1 parent 91b630f
commit a6430da
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/lib/core/src/Cardano/Wallet/DB/SqliteTypes.hs b/lib/core/src/Cardano/Wallet/DB/SqliteTypes.hs
@@ -235,10 +235,8 @@ instance Read WalletState where
 -- TxStatus
 
 instance PersistField TxStatus where
-    toPersistValue =
-        toPersistValue . toText
-    fromPersistValue pv = first (const err) (fromPersistValue pv)
-        where err = "not a valid value: " <> T.pack (show pv)
+    toPersistValue = toPersistValue . toText
+    fromPersistValue = fromPersistValueFromText
 
 instance PersistFieldSql TxStatus where
     sqlType _ = sqlType (Proxy @Text)