parseSettings' :: Parser Settings
parseSettings' = Settings
                <$> strOption (long "input-file" <> help "Logdatei zum Einlesen")
                <*> (option filtersOpt (long "filters" <> help "Kommaserparierte Liste von Filtern, Format <pfad>[=~]<wert> ist hierbei ein Pfad tagname1/tagname2/...") <|> pure mempty)
                <*> option serviceOpt (long "service" <> help "Dienst (AUS/DFI/...)")
                <*> switch (long "invert" <> help "Outputfahrten umdrehen")
                <*> switch (long "condense" <> help "Nur Halte mit Zeiten ausgeben (nur für AUS interessant)")
                <*> (option exclusionsOpt (long "exclusions" <> help "Welche Tags bei der Ausgabe weggetan werden sollen (kommaseparierte Liste von Pfaden a la <pfad> ist hierbei ein Pfad tagname1/tagname2/...)") <|> pure mempty)

parseSettings' :: Parser Settings
parseSettings' = Settings
                <$> strOption (long "input-file" <> help "Logdatei zum Einlesen")
                <*> (option filtersOpt (long "filters" <> help "Kommaserparierte Liste von Filtern, Format <pfad>[=~]<wert> ist hierbei ein Pfad tagname1/tagname2/...") <|> pure mempty)
                <*> option serviceOpt (long "service" <> help "Dienst (AUS/DFI/...)")
                <*> switch (long "invert" <> help "Outputfahrten umdrehen")
                <*> switch (long "condense" <> help "Nur Halte mit Zeiten ausgeben (nur für AUS interessant)")
                <*> (option exclusionsOpt (long "exclusions" <> help "Welche Tags bei der Ausgabe weggetan werden sollen (kommaseparierte Liste von Pfaden a la <pfad> ist hierbei ein Pfad tagname1/tagname2/...)") <|> pure mempty)
parseSettings' = Settings
                <$> strOption (long "input-file" <> help "Logdatei zum Einlesen")
                <*> (option filtersOpt (long "filters" <> help "Kommaserparierte Liste von Filtern, Format <pfad>[=~]<wert> ist hierbei ein Pfad tagname1/tagname2/...") <|> pure mempty)
                <*> option serviceOpt (long "service" <> help "Dienst (AUS/DFI/...)")
                <*> switch (long "invert" <> help "Outputfahrten umdrehen")
                <*> switch (long "condense" <> help "Nur Halte mit Zeiten ausgeben (nur für AUS interessant)")
                <*> (option exclusionsOpt (long "exclusions" <> help "Welche Tags bei der Ausgabe weggetan werden sollen (kommaseparierte Liste von Pfaden a la <pfad> ist hierbei ein Pfad tagname1/tagname2/...)") <|> pure mempty)