av/haskell-cron-matcher
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

And more monadic

Browse Source
This commit is contained in:
Anton Vakhrushev 2020-06-20 20:25:02 +03:00
parent 5cf3aa8fba
commit 8e8045695a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Pattern.hs
View File

@ -7,7 +7,6 @@ module Pattern
import Constraint import Constraint
import Data.Dates import Data.Dates
import Data.Maybe
import Field import Field
data Pattern = data Pattern =
@ -21,7 +20,9 @@ data Pattern =
deriving (Show) deriving (Show)
match :: String -> DateTime -> Maybe Bool 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 :: String -> Maybe Pattern
parse text = do parse text = do