diff --git a/day1.hs b/day1.hs
index 062a5ce73d4ff0fea407beef62352632133c3560..da0e479f1017b37976dd78d011ac026577ec1136 100644
--- a/day1.hs
+++ b/day1.hs
@@ -6,9 +6,6 @@ main = do
   print (whichFloor contents)
 
 
-myLink [] = 0
-myLink (_:xs) = 1 + myLink xs
-
 santa '(' = 1
 santa ')' = -1
 santa _ = 0