@@ -63,10 +63,11 @@ main = do
6363 B.writeFile "Makefile" $(embedFile "support/Makefile")
6464 when ("--help" `elem` opts') $
6565 putStrLn help
66− if null files then do
67− currentDir <- getCurrentDirectory
68− processFiles opts' [currentDir]
69− else do
66+ if null files then
67+ when (null opts) $ do
68+ currentDir <- getCurrentDirectory
69+ processFiles opts' [currentDir]
70+ else
7071 processFiles opts' files
7172 return ()
7273 where