importIdent :: MonadIO m => BS.ByteString -> PSM m [BS.ByteString]
importIdent ident = do
    ids <- importKey ident
    forM_ ids $ addPubIdent . toKeyID
    return ids
importIdent :: MonadIO m => BS.ByteString -> PSM m [BS.ByteString]
importIdent ident = do
    ids <- importKey ident
    forM_ ids $ addPubIdent . toKeyID
    return ids
importIdent ident = do
    ids <- importKey ident
    forM_ ids $ addPubIdent . toKeyID
    return ids