From d54a5d514d6765c89c38fdb69df22994a7bd0eee Mon Sep 17 00:00:00 2001
From: Thorn Avery <s@p7.co.nz>
Date: Wed, 2 Dec 2020 21:03:57 +1300
Subject: [PATCH] cleaned up error reporting

---
 day2.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/day2.hs b/day2.hs
index c67cff2..f95aa7a 100644
--- a/day2.hs
+++ b/day2.hs
@@ -32,13 +32,13 @@ validB (Password a' b' t p) =
     b = (pred b')
 
 parse :: String -> Maybe Password
-parse [] = error "empty password"
+parse [] = Nothing
 parse s =
   do (l,s') <- parseInt s
      (u,s'') <- parseInt $ dropChar s'
      (t,s''') <- parseChar $ dropChar s''
      let p = (dropChar . dropChar) s'''
-      in (Just $ Password l u t p)
+      in Just $ Password l u t p
 
 parseInt :: String -> Maybe (Int,String)
 parseInt s = case (reads s) of