diff --git a/src/Algorithm.hs b/src/Algorithm.hs
index 38dbf5153..dd0cba588 100644
--- a/src/Algorithm.hs
+++ b/src/Algorithm.hs
@@ -145,7 +145,7 @@ instance Diffable Maybe where
 
 -- | Diff two lists using RWS.
 instance Diffable [] where
-  algorithmFor a b = byRWS a b
+  algorithmFor = byRWS
 
 -- | Diff two non-empty lists using RWS.
 instance Diffable NonEmpty where