hlint

app/Main.hs

@@ -96,7 +96,7 @@ main = do
     Just b32Secret ->
       case decodeBase32Unpadded b32Secret of
         Left err -> error "base32 decoding convergence secret failed"
-        Right bytesSecret -> do
+        Right bytesSecret ->
           filesystemUploadableWithConvergence bytesSecret path params
 
   servers >>= upload uploadable >>= report_upload
@@ -113,4 +113,4 @@ main = do
     report_upload :: UploadResult -> IO ()
     report_upload result = do
       Text.putStrLn . pretty_format_sharemap . uploadResultShareMap $ result
-      Text.putStrLn . (Text.append "Read cap: ") . capabilityText . uploadResultReadCap $ result
+      Text.putStrLn . Text.append "Read cap: " . capabilityText . uploadResultReadCap $ result