From 439847eb6f002f61bdc7a37a07989ab26540ab67 Mon Sep 17 00:00:00 2001
From: Piyush P Kurur <ppk@cse.iitk.ac.in>
Date: Thu, 7 Mar 2013 16:43:53 +0530
Subject: added a default instance for Configuration

---
 src/Hakyll/Core/Configuration.hs | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

(limited to 'src')

diff --git a/src/Hakyll/Core/Configuration.hs b/src/Hakyll/Core/Configuration.hs
index fdca879..be9a460 100644
--- a/src/Hakyll/Core/Configuration.hs
+++ b/src/Hakyll/Core/Configuration.hs
@@ -8,6 +8,7 @@ module Hakyll.Core.Configuration
 
 
 --------------------------------------------------------------------------------
+import           Data.Default
 import           Data.List          (isPrefixOf, isSuffixOf)
 import           System.FilePath    (normalise, takeFileName)
 
@@ -56,8 +57,28 @@ data Configuration = Configuration
       inMemoryCache        :: Bool
     }
 
+instance Default Configuration where
+  def = Configuration
+        { destinationDirectory = "_site"
+        , storeDirectory       = "_cache"
+        , tmpDirectory         = "_cache/tmp"
+        , providerDirectory    = "."
+        , ignoreFile           = ignoreFile'
+        , 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
 
 --------------------------------------------------------------------------------
+
 -- | Default configuration for a hakyll application
 defaultConfiguration :: Configuration
 defaultConfiguration = Configuration
-- 
cgit v1.2.3