listDomains :: State -> IO ()
listDomains state = Domain.outputDomainList =<< Domain.list state
listDomains :: State -> IO ()
listDomains state = Domain.outputDomainList =<< Domain.list state
listDomains state = Domain.outputDomainList =<< Domain.list state