1 files changed, 1 insertions, 1 deletions

diff --git a/lib/KeyRing.hs b/lib/KeyRing.hs
index b946e54..70edb9e 100644
--- a/lib/KeyRing.hs
+++ b/lib/KeyRing.hs
@@ -667,7 +667,7 @@ isauth rt keydata = dont_have keydata && maybe False (`has_good_sig` keydata) wk
           where wk = workingKey (rtGrip rt) (rtKeyDB rt)
                 dont_have (KeyData p _ _ _) = not . Map.member (rtPubring rt)
                                                    $ locations p
-                has_good_sig wk (KeyData k sigs uids subs) = any goodsig $ Map.toList uids
+                has_good_sig wk (KeyData k sigs uids subs) = any goodsig $ first unUidString <$> Map.toList uids
                  where
                     goodsig (uidstr,(sigs,_)) = not . null $ do
                         sig0 <- fmap (packet . fst) sigs