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

Change sequence creation

Browse Source
This commit is contained in:
Anton Vakhrushev 2017-11-12 07:22:26 +03:00
parent 3d161e090e
commit 996031d92f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Field.hs
View File

@ -27,7 +27,7 @@ parseFieldRange text constraint
| isAll = Just All | isAll = Just All
| isJust number = Just (Range (fromJust number) (fromJust number)) | isJust number = Just (Range (fromJust number) (fromJust number))
| isJust range = Just (Range (fst $ fromJust range) (snd $ fromJust range)) | isJust range = Just (Range (fst $ fromJust range) (snd $ fromJust range))
| isJust sequence = Just (Sequence (fromJust sequence)) | isJust sequence = fmap Sequence sequence
where where
isAll = parseAll text isAll = parseAll text
number = parseNumber text constraint number = parseNumber text constraint