keyName :: Key -> IO (Maybe ByteString)
keyName k = keyGetStringAttr k AttrName 0
keyName :: Key -> IO (Maybe ByteString)
keyName k = keyGetStringAttr k AttrName 0
keyName k = keyGetStringAttr k AttrName 0