@@ -63,10 +63,11 @@ main = do
63 B.writeFile "Makefile" $(embedFile "support/Makefile")
63 B.writeFile "Makefile" $(embedFile "support/Makefile")
64 when ("--help" `elem` opts') $
64 when ("--help" `elem` opts') $
65 putStrLn help
65 putStrLn help
66− if null files then do
66+ if null files then
67+ when (null opts) $ do
67− currentDir <- getCurrentDirectory
68+ currentDir <- getCurrentDirectory
68− processFiles opts' [currentDir]
69+ processFiles opts' [currentDir]
70 processFiles opts' files
71 processFiles opts' files