Introduce Text.Emoji.Emojis

This module contains emojiData which is a list
of all Emojis. At compile time the file emoji-data.txt
is embedded into the file but parsed at runtime. I still
need to figure out a way to parse at compile time that
does not result into virtually infinite pain.

3 files changed, 21 insertions, 3 deletions

diff --git a/emoji.cabal b/emoji.cabal
index 011af52..f1045a8 100644
--- a/emoji.cabal
+++ b/emoji.cabal
@@ -20,6 +20,7 @@ library
                      , Text.Emoji.Data
                      , Text.Emoji.String
                      , Text.Emoji.Text
+                     , Text.Emoji.Emojis
   -- other-modules:       
   -- other-extensions:    
   build-depends:       base
@@ -28,5 +29,6 @@ library
                      , parsec
                      , split
                      , utf8-light
+                     , file-embed
   hs-source-dirs:      src
   default-language:    Haskell2010
diff --git a/shell.nix b/shell.nix
index 160b524..80d3198 100644
--- a/shell.nix
+++ b/shell.nix
@@ -4,15 +4,15 @@ let
 
   inherit (nixpkgs) pkgs;
 
-  f = { mkDerivation, base, bytestring, parsec, split, stdenv, text
-      , utf8-light
+  f = { mkDerivation, base, bytestring, file-embed, parsec, split
+      , stdenv, text, utf8-light
       }:
       mkDerivation {
         pname = "emoji";
         version = "0.1.0.0";
         src = ./.;
         libraryHaskellDepends = [
-          base bytestring parsec split text utf8-light
+          base bytestring file-embed parsec split text utf8-light
         ];
         description = "Emoji name expander for different string types";
         license = stdenv.lib.licenses.gpl3;
diff --git a/src/Text/Emoji/Emojis.hs b/src/Text/Emoji/Emojis.hs
new file mode 100644
index 0000000..de37ac5
--- /dev/null
+++ b/src/Text/Emoji/Emojis.hs
@@ -0,0 +1,16 @@
+{-# LANGUAGE TemplateHaskell #-}
+module Text.Emoji.Emojis
+  ( emojiData
+  ) where
+
+import Text.Emoji.Types
+import Text.Emoji.Data
+import Data.Either
+import Data.FileEmbed
+import Text.Parsec
+
+emojiData :: [Emoji]
+emojiData = toRights . (\(Right x) -> x) $ parse emojiDataFile "" $(embedStringFile "./emoji-data.txt")
+
+toRights :: [Either a b] -> [b]
+toRights = map (\(Right x) -> x) . filter isRight