[scaffold] add 'production' and 'prod' combinator

2012-04-06 12:21:03 -04:00 · 2012-04-06 12:21:03 -04:00 · 55bd35fc5c
commit 55bd35fc5c
parent 687961cd22
1 changed files with 6 additions and 0 deletions
--- a/yesod/scaffold/Settings/Development.hs.cg
+++ b/yesod/scaffold/Settings/Development.hs.cg
@ -10,3 +10,9 @@ development =

 dev :: a -> a -> a
 dev a b = if development then a else b
+
+production :: Bool
+production = not development
+
+prod :: a -> a -> a
+prod a b = if production then a else b