diff --git a/Day1/puzzle1.hs b/Day1/puzzle1.hs
index 3e5ef60..42d4714 100644
--- a/Day1/puzzle1.hs
+++ b/Day1/puzzle1.hs
@@ -1,5 +1,4 @@
 import Data.List (transpose, sort)
-import System.IO
 
 listDistance :: [Int] -> [Int] -> Int
 listDistance xs ys = sum $ map abs $ zipWith (-) (sort xs) (sort ys)
diff --git a/Day1/puzzle2.hs b/Day1/puzzle2.hs
index 6efe9d9..f1eb335 100644
--- a/Day1/puzzle2.hs
+++ b/Day1/puzzle2.hs
@@ -1,5 +1,4 @@
 import Data.List (transpose, sort, group)
-import System.IO
 
 similarityScore :: [Int] -> [Int] -> Int
 similarityScore xs ys = let elemsY = [ (head y, length y) | y <- (group . sort) ys ]
diff --git a/Day2/puzzle1.hs b/Day2/puzzle1.hs
index eb85305..32925ed 100644
--- a/Day2/puzzle1.hs
+++ b/Day2/puzzle1.hs
@@ -1,5 +1,4 @@
 import Data.List (sort)
-import System.IO
 
 isSafe :: [Int] -> Bool
 isSafe xs = (isAscending xs || isDescending xs) && maximum distances <= 3 && minimum distances >= 1
diff --git a/Day2/puzzle2.hs b/Day2/puzzle2.hs
index 160d86d..5d186f4 100644
--- a/Day2/puzzle2.hs
+++ b/Day2/puzzle2.hs
@@ -1,5 +1,4 @@
 import Data.List (sort, inits, tails)
-import System.IO
 
 isSafe :: [Int] -> Bool
 isSafe xs = (isAscending xs || isDescending xs) && maximum distances <= 3 && minimum distances >= 1