ilyakooo0/hakyll
1
0
Fork 0
mirror of https://github.com/ilyakooo0/hakyll.git synced 2024-10-06 09:17:15 +03:00
Code Issues Projects Releases Wiki Activity

prevent "-h" or "--help" from generating dir

Browse Source 
assume user in general is not expecting "--something" directory
to be generated.
This commit is contained in:
Javran Cheng 2015-09-24 15:26:01 -04:00
parent bbacb45076
commit 5b36fea95c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Hakyll/Init.hs
View File

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