module Rakka.Utils
( yesOrNo
+ , trueOrFalse
, parseYesOrNo
, maybeA
, deleteIfEmpty
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