dispatch :: State -> Args.Options -> IO ()
dispatch state Args.Options {Args.subCommand = Args.WhoAmI} = whoami state
dispatch :: State -> Args.Options -> IO ()
dispatch state Args.Options {Args.subCommand = Args.WhoAmI} = whoami state
dispatch state Args.Options {Args.subCommand = Args.WhoAmI} = whoami state