Add IO action which actually parses the data file

1 files changed, 5 insertions, 1 deletions

diff --git a/src/Text/Emoji/Data.hs b/src/Text/Emoji/Data.hs
index 2c6e51a..fb9715a 100644
--- a/src/Text/Emoji/Data.hs
+++ b/src/Text/Emoji/Data.hs
@@ -8,7 +8,6 @@ unicode consortium.
 -}
 
 
-{-# LANGUAGE OverloadedStrings #-}
 module Text.Emoji.Data where
 
 import           Text.Emoji.Types
@@ -22,6 +21,11 @@ import           Text.Parsec
 import           Text.Parsec.String
 import           Numeric             (readHex)
 
+
+-- | Runs the parser on the specified data file.
+parseDataFile :: FilePath -> IO (Either ParseError [Either String Emoji])
+parseDataFile path = parseFromFile emojiDataFile path
+
 -- | Parses the entire emoji-data.txt file.
 -- Left String is a comment line.
 -- Right Emoji is a line describing an emoji character.