Apply suggestions from @KtorZ's review.

src/Cardano/Wallet/Binary.hs

@@ -80,11 +80,11 @@ import qualified Data.Set as Set
 decodeAddress :: CBOR.Decoder s Address
 decodeAddress = do
     _ <- CBOR.decodeListLenCanonicalOf 2
-        -- ^ CRC Protection Wrapper
+        -- CRC Protection Wrapper
     tag <- CBOR.decodeTag
-        -- ^ Mysterious hard-coded tag cardano-sl seems to so much like
+        -- Mysterious hard-coded tag cardano-sl seems to so much like
     bytes <- CBOR.decodeBytes
-        -- ^ Addr Root + Attributes + Type
+        -- Addr Root + Attributes + Type
     crc <- CBOR.decodeWord32 -- CRC
     -- NOTE 1:
     -- Treating addresses as a blob here, so we just re-encode them as such

src/Cardano/Wallet/BlockSyncer.hs

@@ -53,9 +53,9 @@ tickingFunction getNextBlocks action tickTime = go
           -> IO ()
       go (BlockHeadersConsumed headersConsumed) = do
           blocksDownloaded <- getNextBlocks
-          let blocksToProcess =
-                  filter (checkIfAlreadyConsumed headersConsumed)
-                      (L.nub blocksDownloaded)
+          let blocksToProcess = filter
+                  (checkIfAlreadyConsumed headersConsumed)
+                  (L.nub blocksDownloaded)
           mapM_ action blocksToProcess
           threadDelay $ (fromIntegral . toMicroseconds) tickTime
           go $ BlockHeadersConsumed

src/Cardano/Wallet/Primitive.hs

@@ -242,8 +242,10 @@ instance Dom UTxO where
 
 balance :: UTxO -> Integer
 balance =
-    Map.foldl' (\total out -> total + fromIntegral (getCoin (coin out))) 0
-        . getUTxO
+    Map.foldl' fn 0 . getUTxO
+  where
+    fn :: Integer -> TxOut -> Integer
+    fn total out = total + fromIntegral (getCoin (coin out))
 
 -- ins⋪ u
 excluding :: UTxO -> Set TxIn ->  UTxO