diff options
author | Andrew Cady <d@jerkface.net> | 2019-07-14 00:10:42 -0400 |
---|---|---|
committer | Andrew Cady <d@jerkface.net> | 2019-07-14 00:13:12 -0400 |
commit | d1dce393d77121509c7ac6d729a09f9f94bc7ab7 (patch) | |
tree | 237b077c353cf5671f7821e12c59f3c11f64e585 /kiki.hs | |
parent | 3f29bdc88a068ec3eab91a8bac12757e3a106ceb (diff) |
newtype UidString
Diffstat (limited to 'kiki.hs')
-rw-r--r-- | kiki.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -259,7 +259,7 @@ show_whose_key input_key db = | |||
259 | case ks of | 259 | case ks of |
260 | [KeyData k _ uids _] -> do | 260 | [KeyData k _ uids _] -> do |
261 | putStrLn $ fingerprint (packet k) | 261 | putStrLn $ fingerprint (packet k) |
262 | mapM_ putStrLn $ Map.keys uids | 262 | mapM_ putStrLn $ unUidString <$> Map.keys uids |
263 | (_:_) -> error "ambiguous" | 263 | (_:_) -> error "ambiguous" |
264 | [] -> return () | 264 | [] -> return () |
265 | 265 | ||