diff options
author | Piyush P Kurur <ppk@cse.iitk.ac.in> | 2013-03-07 17:56:56 +0530 |
---|---|---|
committer | Piyush P Kurur <ppk@cse.iitk.ac.in> | 2013-03-07 17:56:56 +0530 |
commit | 7fc2f677d9e4b4267059275d4e6451410893fc04 (patch) | |
tree | eb2b1babdcf329a9da3d8bb99d77e5ed2b7d64e8 /src/Hakyll/Core | |
parent | 1c50baff7a752d6dedd3cf9ec5efc819f08f1d3c (diff) | |
download | hakyll-7fc2f677d9e4b4267059275d4e6451410893fc04.tar.gz |
fixing the coding style
Diffstat (limited to 'src/Hakyll/Core')
-rw-r--r-- | src/Hakyll/Core/Configuration.hs | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/src/Hakyll/Core/Configuration.hs b/src/Hakyll/Core/Configuration.hs index be9a460..8cbbff0 100644 --- a/src/Hakyll/Core/Configuration.hs +++ b/src/Hakyll/Core/Configuration.hs @@ -8,7 +8,7 @@ module Hakyll.Core.Configuration -------------------------------------------------------------------------------- -import Data.Default +import Data.Default (Default(..)) import Data.List (isPrefixOf, isSuffixOf) import System.FilePath (normalise, takeFileName) @@ -57,8 +57,9 @@ data Configuration = Configuration inMemoryCache :: Bool } +-------------------------------------------------------------------------------- instance Default Configuration where - def = Configuration + def = Configuration { destinationDirectory = "_site" , storeDirectory = "_cache" , tmpDirectory = "_cache/tmp" @@ -67,18 +68,17 @@ instance Default Configuration where , deployCommand = "echo 'No deploy command specified'" , inMemoryCache = True } - where - ignoreFile' path - | "." `isPrefixOf` fileName = True - | "#" `isPrefixOf` fileName = True - | "~" `isSuffixOf` fileName = True - | ".swp" `isSuffixOf` fileName = True - | otherwise = False - where - fileName = takeFileName path + where + ignoreFile' path + | "." `isPrefixOf` fileName = True + | "#" `isPrefixOf` fileName = True + | "~" `isSuffixOf` fileName = True + | ".swp" `isSuffixOf` fileName = True + | otherwise = False + where + fileName = takeFileName path -------------------------------------------------------------------------------- - -- | Default configuration for a hakyll application defaultConfiguration :: Configuration defaultConfiguration = Configuration |