refactor(emoji-generic/DataFiles.hs): make group parser a bit cleaner

1 files changed, 5 insertions, 5 deletions

diff --git a/src/Text/Emoji/DataFiles.hs b/src/Text/Emoji/DataFiles.hs
index a0af8bf..1937fdb 100644
--- a/src/Text/Emoji/DataFiles.hs
+++ b/src/Text/Emoji/DataFiles.hs
@@ -12,7 +12,7 @@ import Prelude hiding (takeWhile)
 import Text.Emoji.Types
 
 import Control.Applicative ((<|>))
-import Data.Attoparsec.Text (Parser (..), takeWhile1, takeWhile, string
+import Data.Attoparsec.Text (Parser (..), takeWhile1, takeWhile, string, choice
                             , notInClass, skipWhile, skipMany, isHorizontalSpace
                             , decimal, hexadecimal, char, many1, endOfLine)
 import Data.Text (Text)
@@ -69,11 +69,11 @@ emojiTestGroup maxLevel = do
 
   let groupParser =
         if maxLevel == EmojiTestGroup
-          then emojiTestGroup EmojiTestSubgroup
-          else fail "fails always"
+          then [ emojiTestGroup EmojiTestSubgroup ]
+          else []
 
-  groupEntries <- many1
-    (groupParser <|> emojiTestEntryLine <|> emojiTestCommentLine)
+  groupEntries <- many1 . choice $
+    groupParser ++ [ emojiTestEntryLine, emojiTestCommentLine ]
 
   pure $ Group EmojiTestGroup name groupEntries