newtype UidString

1 files changed, 1 insertions, 1 deletions

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 ()