minor style adjustments (indentation & code formatting)

cardano-foundation · Jun 12, 2019 · d2b14fa · d2b14fa
1 parent d4f5b3c
commit d2b14fa
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 6 deletions.
diff --git a/lib/core/src/Cardano/Wallet/DB/Sqlite.hs b/lib/core/src/Cardano/Wallet/DB/Sqlite.hs
@@ -654,10 +654,12 @@ selectUTxO (Checkpoint wid sl _parent) = fmap entityVal <$>
 selectPending
     :: Checkpoint
     -> SqlPersistM [TxId]
-selectPending (Checkpoint wid sl _parent) = fmap (pendingTxTableId2 . entityVal)
-    <$>
-    selectList [ PendingTxTableWalletId ==. wid
-               , PendingTxTableCheckpointSlot ==. sl ] []
+selectPending (Checkpoint wid sl _parent) =
+    fmap (pendingTxTableId2 . entityVal)
+        <$> selectList
+            [ PendingTxTableWalletId ==. wid
+            , PendingTxTableCheckpointSlot ==. sl
+            ] []
 
 selectTxs
     :: [TxId]

diff --git a/lib/core/src/Cardano/Wallet/DB/Sqlite/TH.hs b/lib/core/src/Cardano/Wallet/DB/Sqlite/TH.hs
@@ -122,7 +122,7 @@ TxOut
 Checkpoint
     checkpointTableWalletId    W.WalletId  sql=wallet_id
     checkpointTableSlot        W.SlotId    sql=slot
-    checkpointTableParent      BlockId   sql=parent
+    checkpointTableParent      BlockId     sql=parent
 
     Primary checkpointTableWalletId checkpointTableSlot
     Foreign Wallet fk_wallet_checkpoint checkpointTableWalletId

diff --git a/lib/core/src/Cardano/Wallet/Primitive/Types.hs b/lib/core/src/Cardano/Wallet/Primitive/Types.hs
@@ -771,7 +771,7 @@ instance FromText (Hash "BlockHeader") where
                     \expected Base16 encoding"
 
 instance ToText (Hash "BlockHeader") where
-        toText = T.decodeUtf8 . convertToBase Base16 . getHash
+    toText = T.decodeUtf8 . convertToBase Base16 . getHash
 
 -- | A polymorphic wrapper type with a custom show instance to display data
 -- through 'Buildable' instances.