diff --git a/src/Control/Addressbook/Streaming.hs b/src/Control/Addressbook/Streaming.hs
index 9e247da..a8989fd 100644
--- a/src/Control/Addressbook/Streaming.hs
+++ b/src/Control/Addressbook/Streaming.hs
@@ -17,7 +17,7 @@ import System.IO
 
 import qualified Data.Foldable as F
 
-import qualified Data.Trie as Trie
+import qualified Data.Map.Strict as Map
 
 import Data.Maybe
        (fromMaybe)
@@ -36,7 +36,7 @@ run = do
   datDir <- fromMaybe "./" <$> lookupEnv "HOME"
   runResourceT $ do
     x <- runConduit stream
-    runConduit (CL.sourceList (Trie.keys x) .| C.map (<> "\n") .| CB.sinkFileCautious (datDir </> ".addressbook.dat"))
+    runConduit (CL.sourceList (Map.keys x) .| C.map (<> "\n") .| CB.sinkFileCautious (datDir </> ".addressbook.dat"))
   where
     separate = \case
       From x -> [x]
@@ -49,4 +49,4 @@ run = do
         .| combine
         .| C.concatMap separate
         .| CT.encode CT.utf8
-        .| C.foldMap (`Trie.singleton` ())
+        .| C.foldMap (`Map.singleton` ())