hlint

test/SpecUpload.hs

@@ -10,9 +10,13 @@ import Data.ByteString.Base32
   ( encodeBase32Unpadded
   )
 import System.IO
-  ( hClose
+  ( SeekMode(AbsoluteSeek)
+  , IOMode(ReadMode, ReadWriteMode)
+  , Handle
+  , hClose
   , hFlush
   , hSeek
+  , withBinaryFile
   )
 import System.IO.Temp
   ( withSystemTempFile
@@ -45,6 +49,8 @@ import Data.IORef
 
 import Types
   ( Parameters(..)
+  , Size
+  , Required
   )
 
 import Upload
@@ -52,13 +58,6 @@ import Upload
   , adjustSegmentSize
   )
 
-import System.IO
-  ( SeekMode(AbsoluteSeek)
-  , IOMode(ReadMode, ReadWriteMode)
-  , Handle
-  , withBinaryFile
-  )
-
 tests :: TestTree
 tests = testGroup "Upload"
   [ testConvergence
@@ -88,16 +87,17 @@ testAdjustSegmentSize = testGroup "adjustSegmentSize"
     assertEqual "" (p 131073 3) (adjustSegmentSize (p 131072 3) 104857600)
   ]
   where
-    p segmentSize required = Parameters segmentSize 5 4 required
+    p :: Size -> Required -> Parameters
+    p segmentSize = Parameters segmentSize 5 4
 
 testConvergence :: TestTree
 testConvergence = testGroup "Convergence"
   [ testCase "getConvergentKey short data" $
-    (uncurry verifyConvergentKey) short
+    uncurry verifyConvergentKey short
   , testCase "getConvergentKey medium data" $
-    (uncurry verifyConvergentKey) medium
+    uncurry verifyConvergentKey medium
   , testCase "getConvergentKey long data" $
-    (uncurry verifyConvergentKey) long
+    uncurry verifyConvergentKey long
   ]
   where
     --