@@ -9,7 +9,7 @@ import Control.Arrow (first)
9import Control.Monad (forM_)
9import Control.Monad (forM_)
10import Data.Char (isAlphaNum, isNumber)
10import Data.Char (isAlphaNum, isNumber)
11import Data.List (foldl')
11import Data.List (foldl')
12−import Data.List (intercalate)
12+import Data.List (intercalate, isPrefixOf)
13import Data.Version (Version (..))
13import Data.Version (Version (..))
14import System.Directory (canonicalizePath, copyFile)
14import System.Directory (canonicalizePath, copyFile)
15import System.Environment (getArgs, getProgName)
15import System.Environment (getArgs, getProgName)
@@ -31,7 +31,7 @@ main = do
31 files <- getRecursiveContents (const $ return False) srcDir
31 files <- getRecursiveContents (const $ return False) srcDir
33 case args of
33 case args of
34− [dstDir] -> do
34+ [dstDir] | not ("-" `isPrefixOf` dstDir) -> do
35 forM_ files $ \file -> do
35 forM_ files $ \file -> do
36 let dst = dstDir </> file
36 let dst = dstDir </> file
37 src = srcDir </> file
37 src = srcDir </> file