diff --git a/4/4.hs b/4/4.hs
index 5bb3150..bd68005 100644
--- a/4/4.hs
+++ b/4/4.hs
@@ -47,8 +47,6 @@ processTurns :: [[[Int]]] -> [Int] -> [[Bool]]
 processTurns boards draws = map (checkBoards boards) turns
     where turns = [ take n draws | n <- [1 .. length draws ] ]
 
-
--- ret: (turn no, board win states)
 getWinner :: [[[Int]]] -> [Int] -> (Int, Int)
 getWinner boards draws = (turnNo, winnerIndex)
     where results     = processTurns boards draws
diff --git a/5/5.hs b/5/5.hs
index 937ce0f..3b43303 100644
--- a/5/5.hs
+++ b/5/5.hs
@@ -13,8 +13,6 @@ import qualified Data.Map as Map
 type Coord     = (Int, Int)
 type LineEnds  = (Coord, Coord)
 
-type Grid       = Map Coord Integer
-
 int :: Parser Int
 int = read <$> many1 digit