@@ -165,12 +165,11 @@ options :: Term P.Options
165165options = P.Options <$> tco <*> performRuntimeTypeChecks <*> magicDo <*> runMain <*> noOpts <*> browserNamespace <*> dceModules <*> codeGenModules
166166
167167stdInOrInputFiles :: FilePath -> Term (Maybe [FilePath])
168−stdInOrInputFiles prelude = combine <$> useStdIn <*> (not <$> noPrelude) <*> inputFiles <*> make
168+stdInOrInputFiles prelude = combine <$> useStdIn <*> (not <$> noPrelude) <*> inputFiles
169169 where
170− combine _ _ input True = Just input
171− combine False True input _ = Just (prelude : input)
172− combine False False input _ = Just input
173− combine True _ _ _ = Nothing
170+ combine False True input = Just (prelude : input)
171+ combine False False input = Just input
172+ combine True _ _ = Nothing
174173
175174term :: FilePath -> Term (IO ())
176175term prelude = compile <$> make <*> options <*> stdInOrInputFiles prelude <*> outputFile <*> externsFile