main :: IO ()
main = (processCmd =<<) $ cmdArgs $
  modes
    [ cmdInit, cmdAddUser, cmdAddRepository
    ]
  &= summary versionString
  &= program "ghost-control"
main :: IO ()
main = (processCmd =<<) $ cmdArgs $
  modes
    [ cmdInit, cmdAddUser, cmdAddRepository
    ]
  &= summary versionString
  &= program "ghost-control"
main = (processCmd =<<) $ cmdArgs $
  modes
    [ cmdInit, cmdAddUser, cmdAddRepository
    ]
  &= summary versionString
  &= program "ghost-control"