findKeyBy :: Eq a => Ctx -> Bool -> (Key -> IO a) -> a -> IO [Key]
findKeyBy ctx secret f x = filterM (fmap (== x) . f) =<< getKeys ctx secret
findKeyBy :: Eq a => Ctx -> Bool -> (Key -> IO a) -> a -> IO [Key]
findKeyBy ctx secret f x = filterM (fmap (== x) . f) =<< getKeys ctx secret
findKeyBy ctx secret f x = filterM (fmap (== x) . f) =<< getKeys ctx secret