Change sequence creation

2017-11-12 07:22:26 +03:00 · 2017-11-12 07:22:26 +03:00 · 996031d92f
commit 996031d92f
parent 3d161e090e
1 changed files with 1 additions and 1 deletions
--- a/src/Field.hs
+++ b/src/Field.hs
@ -27,7 +27,7 @@ parseFieldRange text constraint
  | isAll = Just All
  | isJust number = Just (Range (fromJust number) (fromJust number))
  | isJust range = Just (Range (fst $ fromJust range) (snd $ fromJust range))
-  | isJust sequence = Just (Sequence (fromJust sequence))
+  | isJust sequence = fmap Sequence sequence
  where
    isAll = parseAll text
    number = parseNumber text constraint