diff options
Diffstat (limited to 'Settings')
| -rw-r--r-- | Settings/Development.hs | 14 | ||||
| -rw-r--r-- | Settings/StaticFiles.hs | 18 |
2 files changed, 32 insertions, 0 deletions
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) |