From 55bd35fc5c0b7359d2c2eee0788064096ca52370 Mon Sep 17 00:00:00 2001 From: Patrick Palka Date: Fri, 6 Apr 2012 12:21:03 -0400 Subject: [PATCH] [scaffold] add 'production' and 'prod' combinator --- yesod/scaffold/Settings/Development.hs.cg | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/yesod/scaffold/Settings/Development.hs.cg b/yesod/scaffold/Settings/Development.hs.cg index 38e4448f..30964dc1 100644 --- 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