diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,5 +1,9 @@
 # emojis
 
+# 0.1.4.1
+
+  * Use foldl' instead of foldr to avoid stack overflows.
+
 # 0.1.4
 
   * Update emoji data.
diff --git a/emojis.cabal b/emojis.cabal
--- a/emojis.cabal
+++ b/emojis.cabal
@@ -1,5 +1,5 @@
 name:                emojis
-version:             0.1.4
+version:             0.1.4.1
 synopsis:            Conversion between emoji characters and their names.
 description:         This package provides functions for converting
                      emoji names to emoji characters and vice versa.
diff --git a/src/Text/Emoji.hs b/src/Text/Emoji.hs
--- a/src/Text/Emoji.hs
+++ b/src/Text/Emoji.hs
@@ -17,13 +17,14 @@
 import qualified Data.Text as T
 import Data.Bifunctor (first)
 import Trie as Trie
+import Data.List (foldl')
 
 emojiMap :: M.Map Text Text
 emojiMap = M.fromList emojis
 
 emojiAliasMap :: M.Map Text [Text]
 emojiAliasMap =
-  foldr (\(alias, s) m -> M.alter (go alias) s m) mempty emojis
+  foldl' (\m (alias, s) -> M.alter (go alias) s m) mempty emojis
     where
      go alias Nothing   = Just [alias]
      go alias (Just as) = Just (alias:as)