paGetByName :: Nome -> ListaPontoAcesso -> PontoAcesso
paGetByName _ [PontoAcesso_Empty] = PontoAcesso_Empty
paGetByName n (h@(PAcesso id nome _ _ _ _):t) | n == nome = h
                                              | otherwise = (paGetByName n t)