diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Main.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs index 861b9ce..65e29aa 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -4,7 +4,7 @@ module Main where import Control.Monad (forM) -import Data.List (isSuffixOf) +import Data.List (isPrefixOf, isSuffixOf) import Data.Time.Format (formatTime, FormatTime) import Data.Time.Locale.Compat (defaultTimeLocale) import Hakyll.Core.Compiler @@ -79,8 +79,8 @@ configuration = Configuration , storeDirectory = "./var/cache" , tmpDirectory = "./var/cache/tmp" , providerDirectory = "." + , ignoreFile = ignoreFile' , watchIgnore = const False - , ignoreFile = const False , deployCommand = "rsync" , deploySite = deploySite' , inMemoryCache = True @@ -90,7 +90,8 @@ configuration = Configuration , previewSettings = Static.defaultFileServerSettings } where - deploySite' deploymentConfiguration + ignoreFile' path = isPrefixOf "." path || path == "var" + deploySite' deploymentConfiguration = readFile "deployment.txt" >>= executeDeployment deploymentConfiguration executeDeployment Configuration{..} deploymentTarget = rawSystem deployCommand |