hlint

src/URIExtension.hs

@@ -57,7 +57,7 @@ instance Show URIExtension where
       utf8 = decodeUtf8
 
 uriExtensionToBytes :: URIExtension -> B.ByteString
-uriExtensionToBytes ext =
+uriExtensionToBytes =
   toWeirdString
   [ ("codec_name", uriExtCodecName)
   , ("codec_params", paramsToBytes . uriExtCodecParams)
@@ -73,9 +73,8 @@ uriExtensionToBytes ext =
   , ("crypttext_root_hash", uriExtCrypttextRootHash)
   , ("share_root_hash", uriExtShareRootHash)
   ]
-  ext
 
-toWeirdString :: [(B.ByteString, (URIExtension -> B.ByteString))] -> URIExtension -> B.ByteString
+toWeirdString :: [(B.ByteString, URIExtension -> B.ByteString)] -> URIExtension -> B.ByteString
 toWeirdString fields ext =
   B.concat . join . sort $ map (encodedField ext) fields
   where