Move rewardTypeToSource from cardano-db to cardano-db-sync

This DRASTICALLY reduces the number of dependencies required by anyone
who just wants to use the cardano-db package.

Author: erikd

cardano-db-sync/src/Cardano/DbSync/LedgerEvent.hs

@@ -35,6 +35,7 @@ import           Cardano.Prelude hiding (All)
 
 import qualified Cardano.DbSync.Era.Shelley.Generic as Generic
 import           Cardano.DbSync.Types
+import           Cardano.DbSync.Util
 
 import           Cardano.Slotting.Slot (EpochNo (..))
 

cardano-db-sync/src/Cardano/DbSync/Util.hs

@@ -21,6 +21,7 @@ module Cardano.DbSync.Util
   , renderByteArray
   , renderPoint
   , renderSlotList
+  , rewardTypeToSource
   , textPrettyShow
   , textShow
   , thrd3
@@ -35,9 +36,11 @@ import           Cardano.Prelude hiding (catch)
 
 import           Cardano.BM.Trace (Trace, logError, logInfo)
 
-import           Cardano.Db (textShow)
+import           Cardano.Db (RewardSource (..), textShow)
 
 import           Cardano.Ledger.Coin (Coin (..))
+import qualified Cardano.Ledger.Shelley.Rewards as Shelley
+
 
 import           Cardano.DbSync.Config.Types ()
 import           Cardano.DbSync.Types
@@ -183,6 +186,12 @@ renderSlotList xs
   | otherwise =
       mconcat [ "[", textShow (unSlotNo $ List.head xs), "..", textShow (unSlotNo $ List.last xs), "]" ]
 
+rewardTypeToSource :: Shelley.RewardType -> RewardSource
+rewardTypeToSource rt =
+  case rt of
+    Shelley.LeaderReward -> RwdLeader
+    Shelley.MemberReward -> RwdMember
+
 maybeFromStrict :: Strict.Maybe a -> Maybe a
 maybeFromStrict Strict.Nothing = Nothing
 maybeFromStrict (Strict.Just a) = Just a

cardano-db/cardano-db.cabal

@@ -57,7 +57,6 @@ library
                       , bytestring
                       , cardano-crypto-class
                       , cardano-ledger-core
-                      , cardano-ledger-shelley
                       , cardano-slotting
                       , containers
                       , conduit

cardano-db/src/Cardano/Db/Types.hs

@@ -34,13 +34,11 @@ module Cardano.Db.Types
   , renderScriptPurpose
   , renderScriptType
   , renderSyncState
-  , rewardTypeToSource
   , showRewardSource
   , word64ToAda
   ) where
 
 import           Cardano.Ledger.Coin (DeltaCoin (..))
-import           Cardano.Ledger.Shelley.Rewards as Shelley
 
 import qualified Codec.Binary.Bech32 as Bech32
 
@@ -231,12 +229,6 @@ renderSyncState ss =
     SyncFollowing -> "following"
     SyncLagging -> "lagging"
 
-rewardTypeToSource :: Shelley.RewardType -> RewardSource
-rewardTypeToSource rt =
-  case rt of
-    Shelley.LeaderReward -> RwdLeader
-    Shelley.MemberReward -> RwdMember
-
 renderScriptPurpose :: ScriptPurpose -> Text
 renderScriptPurpose ss =
   case ss of