diff --git a/Proj2.hs b/Proj2.hs
index b23a8f8..31a5ad5 100644
--- a/Proj2.hs
+++ b/Proj2.hs
@@ -213,7 +213,7 @@ matches :: (Eq a, Show a) => [a] -> [a] -> Int
 matches xs ys = maximum permutationMatches
   where
     permutationMatches = map (pairwiseMatches xs) (permutations ys)
-    pairwiseMatches xs ys = length $ filter (uncurry (==)) $ zip xs ys
+    pairwiseMatches xs = length . filter (uncurry (==)) . zip xs
 
 -- outputs a list of all possible chords, where a chord is a list of unique
 -- pitches. this function happens to generate chords such that the pitches are