X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FUtils.hs;h=693fdf2ebae8b695e7b1c30596c2e81d5bd09c40;hp=0fddc6d64127baf25a1e5adbe19b58b5e758d039;hb=354a3b69406608a2570060bdbdbc65e83260c8ff;hpb=0447be1b59496ca4266226ed52d264009cf41899

diff --git a/Rakka/Utils.hs b/Rakka/Utils.hs
index 0fddc6d..693fdf2 100644
--- a/Rakka/Utils.hs
+++ b/Rakka/Utils.hs
@@ -1,5 +1,6 @@
 module Rakka.Utils
     ( yesOrNo
+    , trueOrFalse
     , parseYesOrNo
     , maybeA
     , deleteIfEmpty
@@ -22,6 +23,11 @@ yesOrNo True  = "yes"
 yesOrNo False = "no"
 
 
+trueOrFalse :: Bool -> String
+trueOrFalse True  = "true"
+trueOrFalse False = "false"
+
+
 parseYesOrNo :: ArrowChoice a => a String Bool
 parseYesOrNo 
     = proc str -> do case str of