From c8eb59c10f516ebdc5cc1c49032616e9de1f42eb Mon Sep 17 00:00:00 2001
From: Thorn Avery <s@p7.co.nz>
Date: Sun, 6 Dec 2020 20:44:58 +1300
Subject: [PATCH] removed unneeded Ord

---
 day6.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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 _ [] = []