hlint: import Data.ByteString.Short as SBS

Author: erikd

.hlint.yaml

@@ -37,6 +37,7 @@
   - {name: [Data.Text], as: Text}
   - {name: [Data.ByteString.Char8], as: BS}
   - {name: [Data.ByteString.Lazy.Char8], as: LBS}
+  - {name: [Data.ByteString.Short], as: SBS}
 
 # Banned functions
 - functions:

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

@@ -5,7 +5,7 @@ module Cardano.DbSync.Era.Cardano.Util
 
 import           Cardano.Prelude
 
-import qualified Data.ByteString.Short as BSS
+import qualified Data.ByteString.Short as SBS
 
 import           Ouroboros.Consensus.Cardano.Block (CardanoBlock)
 import qualified Ouroboros.Consensus.HardFork.Combinator as Consensus
@@ -16,5 +16,5 @@ unChainHash :: ChainHash (CardanoBlock era) -> ByteString
 unChainHash ch =
   case ch of
     GenesisHash -> "genesis"
-    BlockHash bh -> BSS.fromShort (Consensus.getOneEraHash bh)
+    BlockHash bh -> SBS.fromShort (Consensus.getOneEraHash bh)
 

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

@@ -7,7 +7,7 @@ module Cardano.DbSync.Rollback
   ) where
 
 import           Cardano.Prelude
-import qualified Data.ByteString.Short as BSS
+import qualified Data.ByteString.Short as SBS
 
 import           Cardano.BM.Trace (Trace, logInfo)
 
@@ -64,7 +64,7 @@ rollbackToPoint backend trce point =
     queryBlockId pnt =
       case getPoint pnt of
         Origin -> DB.queryGenesis
-        At blk -> DB.queryBlockId (BSS.fromShort . getOneEraHash $ blockPointHash blk)
+        At blk -> DB.queryBlockId (SBS.fromShort . getOneEraHash $ blockPointHash blk)
 
 -- For testing and debugging.
 unsafeRollback :: Trace IO Text -> SlotNo -> IO (Either SyncNodeError ())

cardano-sync/src/Cardano/Sync/Era/Cardano/Util.hs

@@ -5,7 +5,7 @@ module Cardano.Sync.Era.Cardano.Util
 
 import           Cardano.Prelude
 
-import qualified Data.ByteString.Short as BSS
+import qualified Data.ByteString.Short as SBS
 
 import           Ouroboros.Consensus.Cardano.Block (CardanoBlock)
 import qualified Ouroboros.Consensus.HardFork.Combinator as Consensus
@@ -17,6 +17,6 @@ unChainHash :: ChainHash (CardanoBlock era) -> ByteString
 unChainHash ch =
   case ch of
     GenesisHash -> "genesis"
-    BlockHash bh -> BSS.fromShort (Consensus.getOneEraHash bh)
+    BlockHash bh -> SBS.fromShort (Consensus.getOneEraHash bh)
 
 

cardano-sync/src/Cardano/Sync/LedgerState.hs

@@ -71,7 +71,7 @@ import           Control.Monad.Class.MonadSTM.Strict (StrictTMVar, StrictTVar, T
 import qualified Data.ByteString.Base16 as Base16
 import qualified Data.ByteString.Char8 as BS
 import qualified Data.ByteString.Lazy.Char8 as LBS
-import qualified Data.ByteString.Short as BSS
+import qualified Data.ByteString.Short as SBS
 import qualified Data.List as List
 import qualified Data.Map.Strict as Map
 import qualified Data.Set as Set
@@ -752,7 +752,7 @@ tickThenReapplyCheckHash cfg block lsb =
                   , " but block previous hash is "
                   , renderByteArray (Cardano.unChainHash $ blockPrevHash block)
                   , " and block current hash is "
-                  , renderByteArray (BSS.fromShort . Consensus.getOneEraHash $ blockHash block), "."
+                  , renderByteArray (SBS.fromShort . Consensus.getOneEraHash $ blockHash block), "."
                   ]
 
 totalAdaPots
@@ -762,7 +762,7 @@ totalAdaPots
 totalAdaPots = Shelley.totalAdaPotsES . Shelley.nesEs . Consensus.shelleyLedgerState
 
 getHeaderHash :: HeaderHash CardanoBlock -> ByteString
-getHeaderHash bh = BSS.fromShort (Consensus.getOneEraHash bh)
+getHeaderHash bh = SBS.fromShort (Consensus.getOneEraHash bh)
 
 -- | This will fail if the state is not a 'LedgerStateAlonzo'
 getAlonzoPParams :: CardanoLedgerState -> PParams StandardAlonzo