diff options
Diffstat (limited to 'src/Text/Emoji/DataFiles.hs')
-rw-r--r-- | src/Text/Emoji/DataFiles.hs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/Text/Emoji/DataFiles.hs b/src/Text/Emoji/DataFiles.hs index 1937fdb..72f37ca 100644 --- a/src/Text/Emoji/DataFiles.hs +++ b/src/Text/Emoji/DataFiles.hs @@ -123,11 +123,3 @@ emojiTestCommentLine = do emojiTestFile :: Parser EmojiTest emojiTestFile = many1 $ emojiTestGroup EmojiTestGroup <|> emojiTestEntryLine <|> emojiTestCommentLine - --- | Helper Function that counts number of lines used to parse 'EmojiTest'. --- Useful to check against LoC of @emoji-test.txt@ for parser sanity check. -countLines :: EmojiTest -> Integer -countLines ((Group _ _ x):xs) = 1 + countLines x + countLines xs -countLines ((Comment _):xs) = 1 + countLines xs -countLines ((Entry _ _ _ _):xs) = 1 + countLines xs -countLines [] = 0 |