hlints

src/Tahoe/Download.hs

@@ -74,6 +74,6 @@ discoverShares ::
     -- | The share numbers the server claims to have.
     IO (Either DiscoverError [ShareNum])
 discoverShares _storageIndex ann
-    | Nothing == storageServerAnnouncementFURL ann =
+    | isNothing $ storageServerAnnouncementFURL ann =
         pure $ Left StorageServerLocationUnknown
     | otherwise = pure $ Right []

test/Spec.hs

@@ -8,12 +8,10 @@ import Data.Word (Word16)
 import System.IO (hSetEncoding, stderr, stdout, utf8)
 import Tahoe.CHK.Capability (Reader (..), Verifier (..))
 import Tahoe.CHK.Server (StorageServerAnnouncement (..))
-import Tahoe.Download (DownloadError (..))
+import Tahoe.Download (DownloadError (..), download)
 import Test.Tasty (TestTree, defaultMain, testGroup)
 import Test.Tasty.HUnit (assertEqual, testCase)
 
-import Tahoe.Download (download)
-
 tests :: TestTree
 tests =
     testGroup