From 794e3eebdd30134f7e814095c7e92e338ac56519 Mon Sep 17 00:00:00 2001
From: Misaka Mikoto <4C2BOA6SRQM4VM4I6RNIKOM6W@cybercat.cc>
Date: Wed, 2 Dec 2020 14:17:36 +0200
Subject: [PATCH] removed unused code

---
 2020/2.hs | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/2020/2.hs b/2020/2.hs
index cb2d5a6..5b18e62 100644
--- a/2020/2.hs
+++ b/2020/2.hs
@@ -1,11 +1,5 @@
 import Data.Char
 
-data Entry = MkEntry { min :: Integer
-                     , max :: Integer
-                     , chr :: Char
-                     , pass :: String
-                     }
-
 count x = length . filter ((==) x)
 main = readFile "2" >>= putStrLn . show . length . filter (parse 0 0) . lines
   where valid min max chr pass = let x = count chr pass