Typo

fission-codes · Jul 2, 2021 · 9066d25 · 9066d25
1 parent a10b5e0
commit 9066d25
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fission-web-server/library/Fission/Web/Server/Internal/NGINX/Purge.hs b/fission-web-server/library/Fission/Web/Server/Internal/NGINX/Purge.hs
@@ -34,7 +34,7 @@ purgeMany :: forall m . MonadHttp m => [URL] -> m (Either NGINX.BatchErrors ())
 purgeMany urls =
   foldM mAcc (Right ()) urls
   where
-    mAcc :: Either BatchErrors () -> URL -> m (Either NGINX.BatchErrors ())
+    mAcc :: Either NGINX.BatchErrors () -> URL -> m (Either NGINX.BatchErrors ())
     mAcc acc url =
       purge url >>= \case
         Right () ->