diff --git a/2021/day05/day05.hs b/2021/day05/day05.hs
index 2278ad5..1c4190e 100644
--- a/2021/day05/day05.hs
+++ b/2021/day05/day05.hs
@@ -6,7 +6,6 @@ import Control.Monad
 main :: IO ()
 main = do
   input <-  map (map read . filter (/="->")) <$> map (splitOneOf ", ") <$> lines <$> readFile "input"
-  let part1inp = filterOrth input
   let process = length . M.filter (> 1) . M.fromListWith (+) . toMap
   print $ join (***) process $ (filterOrth input,input)