diff --git a/day-07/sol.hs b/day-07/sol.hs
index 8de828b..c6b8c35 100644
--- a/day-07/sol.hs
+++ b/day-07/sol.hs
@@ -62,9 +62,6 @@ rotl = reverse . transpose
 rotr :: [[Int]] -> [[Int]]
 rotr = transpose . reverse
 
-mmult :: [[Int]] -> [[Int]] -> [[Int]]
-mmult a b = [[sum $ zipWith (*) ar bc | bc <- (transpose b)] | ar <- a]
-
 main = do
   ls <- fmap Text.lines (Text.readFile "input")
   let digits = map (getDigitsFromString . Text.unpack) ls