From 514ff2acff2ba9ad9f809e22fc8ed5a986410e5d Mon Sep 17 00:00:00 2001
From: Clint Adams <clint@softwarefreedom.org>
Date: Fri, 19 Apr 2013 17:57:46 -0400
Subject: Initial stab.

---
 Settings/Development.hs | 14 ++++++++++++++
 Settings/StaticFiles.hs | 18 ++++++++++++++++++
 2 files changed, 32 insertions(+)
 create mode 100644 Settings/Development.hs
 create mode 100644 Settings/StaticFiles.hs

(limited to 'Settings')

diff --git a/Settings/Development.hs b/Settings/Development.hs
new file mode 100644
index 0000000..73613f0
--- /dev/null
+++ b/Settings/Development.hs
@@ -0,0 +1,14 @@
+module Settings.Development where
+
+import Prelude
+
+development :: Bool
+development =
+#if DEVELOPMENT
+  True
+#else
+  False
+#endif
+
+production :: Bool
+production = not development
diff --git a/Settings/StaticFiles.hs b/Settings/StaticFiles.hs
new file mode 100644
index 0000000..2510795
--- /dev/null
+++ b/Settings/StaticFiles.hs
@@ -0,0 +1,18 @@
+module Settings.StaticFiles where
+
+import Prelude (IO)
+import Yesod.Static
+import qualified Yesod.Static as Static
+import Settings (staticDir)
+import Settings.Development
+
+-- | use this to create your static file serving site
+staticSite :: IO Static.Static
+staticSite = if development then Static.staticDevel staticDir
+                            else Static.static      staticDir
+
+-- | This generates easy references to files in the static directory at compile time,
+--   giving you compile-time verification that referenced files exist.
+--   Warning: any files added to your static directory during run-time can't be
+--   accessed this way. You'll have to use their FilePath or URL to access them.
+$(staticFiles Settings.staticDir)
-- 
cgit v1.2.3