From b6550b554fe18426eb942aa27638dcc5cbcda4c1 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Thu, 13 Apr 2023 16:57:55 -0400
Subject: [PATCH] hlints
---
src/Tahoe/Download.hs | 2 +-
test/Spec.hs | 4 +---
2 files changed, 2 insertions(+), 4 deletions(-)
diff --git a/src/Tahoe/Download.hs b/src/Tahoe/Download.hs
index 11e1105..b899710 100644
--- a/src/Tahoe/Download.hs
+++ b/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 []
diff --git a/test/Spec.hs b/test/Spec.hs
index 956850d..450c9bc 100644
--- a/test/Spec.hs
+++ b/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
--
GitLab