Clean up s3BinaryStoreEffects slightly

haskell-nix · Apr 3, 2019 · 5a5b860 · 5a5b860
1 parent b74a691
commit 5a5b860
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/hnix-store-s3/src/System/Nix/Store/S3.hs b/hnix-store-s3/src/System/Nix/Store/S3.hs
@@ -13,7 +13,7 @@ s3BinaryStoreEffects
   => BucketName
   -> BinaryStoreEffects m
 s3BinaryStoreEffects bucketName' =
-  BinaryStoreEffects (upsertFile' bucketName')
+  BinaryStoreEffects upsertFile'
   where
-    upsertFile' bucketName pth d mimeType =
-      void . send $ putObject bucketName (ObjectKey pth) (toBody d) & poContentType ?~ mimeType
+    upsertFile' pth d mimeType =
+      void . send $ putObject bucketName' (ObjectKey pth) (toBody d) & poContentType ?~ mimeType