Compress CSS
This commit is contained in:
@@ -1,2 +1,3 @@
|
|||||||
This is the source code of my personal blog. It is a static
|
This is the source code of my personal blog. It is a static
|
||||||
site generated by Hakyll.
|
site generated by Hakyll. The actual content is written in
|
||||||
|
LaTeX.
|
||||||
|
|||||||
File diff suppressed because one or more lines are too long
@@ -4,7 +4,7 @@
|
|||||||
module Main where
|
module Main where
|
||||||
|
|
||||||
import Control.Monad (forM)
|
import Control.Monad (forM)
|
||||||
import Data.List (isSuffixOf)
|
import Data.List (isPrefixOf, isSuffixOf)
|
||||||
import Data.Time.Format (formatTime, FormatTime)
|
import Data.Time.Format (formatTime, FormatTime)
|
||||||
import Data.Time.Locale.Compat (defaultTimeLocale)
|
import Data.Time.Locale.Compat (defaultTimeLocale)
|
||||||
import Hakyll.Core.Compiler
|
import Hakyll.Core.Compiler
|
||||||
@@ -79,8 +79,8 @@ configuration = Configuration
|
|||||||
, storeDirectory = "./var/cache"
|
, storeDirectory = "./var/cache"
|
||||||
, tmpDirectory = "./var/cache/tmp"
|
, tmpDirectory = "./var/cache/tmp"
|
||||||
, providerDirectory = "."
|
, providerDirectory = "."
|
||||||
|
, ignoreFile = ignoreFile'
|
||||||
, watchIgnore = const False
|
, watchIgnore = const False
|
||||||
, ignoreFile = const False
|
|
||||||
, deployCommand = "rsync"
|
, deployCommand = "rsync"
|
||||||
, deploySite = deploySite'
|
, deploySite = deploySite'
|
||||||
, inMemoryCache = True
|
, inMemoryCache = True
|
||||||
@@ -90,7 +90,8 @@ configuration = Configuration
|
|||||||
, previewSettings = Static.defaultFileServerSettings
|
, previewSettings = Static.defaultFileServerSettings
|
||||||
}
|
}
|
||||||
where
|
where
|
||||||
deploySite' deploymentConfiguration
|
ignoreFile' path = isPrefixOf "." path || path == "var"
|
||||||
|
deploySite' deploymentConfiguration
|
||||||
= readFile "deployment.txt"
|
= readFile "deployment.txt"
|
||||||
>>= executeDeployment deploymentConfiguration
|
>>= executeDeployment deploymentConfiguration
|
||||||
executeDeployment Configuration{..} deploymentTarget = rawSystem deployCommand
|
executeDeployment Configuration{..} deploymentTarget = rawSystem deployCommand
|
||||||
|
|||||||
Reference in New Issue
Block a user