implementation module iTasks.API.Extensions.Admin.ServerAdmin
import iTasks

manageServer :: Task Void
manageServer
    =   enterChoiceWithShared "Session instances" [] currentSessions
    -&&-
        enterChoiceWithShared "Persistent instances" [] currentProcesses
    @!  Void