arseOrigin :: Parser Origin
parseOrigin = argument (fmap mkOrigin str) (metavar "ORIGIN")
  where
    mkOrigin = Origin . S.pack

parseOrigin :: Parser Origin
parseOrigin = argument (fmap mkOrigin str) (metavar "ORIGIN")
  where
    mkOrigin = Origin . S.pack
parseOrigin = argument (fmap mkOrigin str) (metavar "ORIGIN")
  where
    mkOrigin = Origin . S.pack