From 996031d92fcf209e763d88522d8447c163802a1d Mon Sep 17 00:00:00 2001
From: Anton Vakhrushev <anwinged@ya.ru>
Date: Sun, 12 Nov 2017 07:22:26 +0300
Subject: [PATCH] Change sequence creation

---
 src/Field.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Field.hs b/src/Field.hs
index 7e8123c..ce31d89 100644
--- 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