From 8e8045695aa901951fabc1944e77d28c493adb58 Mon Sep 17 00:00:00 2001
From: Anton Vakhrushev <anwinged@ya.ru>
Date: Sat, 20 Jun 2020 20:25:02 +0300
Subject: [PATCH] And more monadic

---
 src/Pattern.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Pattern.hs b/src/Pattern.hs
index df61483..f17a6fb 100644
--- a/src/Pattern.hs
+++ b/src/Pattern.hs
@@ -7,7 +7,6 @@ module Pattern
 
 import           Constraint
 import           Data.Dates
-import           Data.Maybe
 import           Field
 
 data Pattern =
@@ -21,7 +20,9 @@ data Pattern =
   deriving (Show)
 
 match :: String -> DateTime -> Maybe Bool
-match ptrn datetime = parse ptrn >>= \p -> Just (check p datetime)
+match text datetime = fmap isMatched $ parse text
+  where
+    isMatched ptrn = check ptrn datetime
 
 parse :: String -> Maybe Pattern
 parse text = do