From d1dce393d77121509c7ac6d729a09f9f94bc7ab7 Mon Sep 17 00:00:00 2001
From: Andrew Cady <d@jerkface.net>
Date: Sun, 14 Jul 2019 00:10:42 -0400
Subject: newtype UidString

---
 kiki.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kiki.hs')

diff --git a/kiki.hs b/kiki.hs
index b3cc880..7d825d3 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -259,7 +259,7 @@ show_whose_key input_key db =
     case ks of
         [KeyData k _ uids _] -> do
             putStrLn $ fingerprint (packet k)
-            mapM_ putStrLn $ Map.keys uids
+            mapM_ putStrLn $ unUidString <$> Map.keys uids
         (_:_) -> error "ambiguous"
         [] -> return ()
 
-- 
cgit v1.2.3