@@ -64,7 +64,7 @@ pureArgParser args = case getParseResult $ execParserPure (prefs idm) (info pars
64parser :: Parser [Opt]
64parser :: Parser [Opt]
65parser = runA $ proc () -> do
65parser = runA $ proc () -> do
66 flags <- asA parseFlags -< ()
66 flags <- asA parseFlags -< ()
67− files <- asA (many $ argument ((fmap . fmap) Filename str) (metavar "FILES")) -< ()
67+ files <- asA (many $ argument (fmap Filename str) (metavar "FILES")) -< ()
68 A parseVersion >>> A helper -< (flags ++ files)
68 A parseVersion >>> A helper -< (flags ++ files)
70parseFlags :: Parser [Opt]
70parseFlags :: Parser [Opt]