hlint

src/TahoeLAFS/Storage/API.hs

 {-# LANGUAGE DataKinds #-}
--- https://artyom.me/aeson#records-and-json-generics
-{-# LANGUAGE DeriveAnyClass #-}
--- https://artyom.me/aeson#records-and-json-generics
-{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE DerivingStrategies #-}
 {-# LANGUAGE FlexibleInstances #-}
--- Supports derivations for ShareNumber
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE PackageImports #-}
 {-# LANGUAGE TypeOperators #-}

src/TahoeLAFS/Storage/Backend/Memory.hs

@@ -354,7 +354,7 @@ readMutableShare' :: IORef MemoryBackend -> StorageIndex -> ShareNumber -> Query
 readMutableShare' backend storageIndex shareNum queryRange = do
     storage <- mutableShares <$> readIORef backend
     let shareSize = maybe 0 shareDataSize (getShareData storage storageIndex shareNum)
-    pure $ readMutableShare'' storage storageIndex shareNum <$> (queryRangeToReadVector shareSize queryRange)
+    pure $ readMutableShare'' storage storageIndex shareNum <$> queryRangeToReadVector shareSize queryRange
 
 readMutableShare'' :: MutableShareStorage -> StorageIndex -> ShareNumber -> ReadVector -> ShareData
 readMutableShare'' storage storageIndex shareNum rv =