on master help sign in
fixing the coding style
commit7fc2f677d9e4b4267059275d4e6451410893fc04 authorPiyush P Kurur <ppk@cse.iitk.ac.in> dateThu 7 Mar 2013, 17:56 (14 years ago) parent1c50baf
1 file changed+12−12
src/Hakyll/Core/Configuration.hs+12−12
src/Hakyll/Core/Configuration.hs+12−12
@@ -8,7 +8,7 @@ module Hakyll.Core.Configuration
88
99
1010--------------------------------------------------------------------------------
11−import Data.Default
11+import Data.Default (Default(..))
1212import Data.List (isPrefixOf, isSuffixOf)
1313import System.FilePath (normalise, takeFileName)
1414
@@ -57,8 +57,9 @@ data Configuration = Configuration
5757 inMemoryCache :: Bool
5858 }
5959
60+--------------------------------------------------------------------------------
6061instance Default Configuration where
61− def = Configuration
62+ def = Configuration
6263 { destinationDirectory = "_site"
6364 , storeDirectory = "_cache"
6465 , tmpDirectory = "_cache/tmp"
@@ -67,18 +68,17 @@ instance Default Configuration where
6768 , deployCommand = "echo 'No deploy command specified'"
6869 , inMemoryCache = True
6970 }
70− where
71− ignoreFile' path
72− | "." `isPrefixOf` fileName = True
73− | "#" `isPrefixOf` fileName = True
74− | "~" `isSuffixOf` fileName = True
75− | ".swp" `isSuffixOf` fileName = True
76− | otherwise = False
77− where
78− fileName = takeFileName path
71+ where
72+ ignoreFile' path
73+ | "." `isPrefixOf` fileName = True
74+ | "#" `isPrefixOf` fileName = True
75+ | "~" `isSuffixOf` fileName = True
76+ | ".swp" `isSuffixOf` fileName = True
77+ | otherwise = False
78+ where
79+ fileName = takeFileName path
7980
8081--------------------------------------------------------------------------------
81−
8282-- | Default configuration for a hakyll application
8383defaultConfiguration :: Configuration
8484defaultConfiguration = Configuration