diff --git a/day6.hs b/day6.hs
index 28ed045..7813c6e 100644
--- a/day6.hs
+++ b/day6.hs
@@ -1,4 +1,4 @@
-import Data.List (nub, sort)
+import Data.List (nub)
 
 main :: IO ()
 main = do
@@ -11,8 +11,8 @@ main = do
      putStrLn $ "day6a: " ++ (show ansA)
      putStrLn $ "day6b: " ++ (show ansB)
 
-match :: (Ord a, Eq a) => [a] -> [a] -> [a]
-match as bs = (sort . nub) $ filter (`elem` bs) as
+match :: Ord a => [a] -> [a] -> [a]
+match as bs = nub $ filter (`elem` bs) as
 
 split :: Eq a => a -> [a] -> [[a]]
 split _ [] = []