module Rakka.Utils
- ( parseYesOrNo
+ ( yesOrNo
+ , parseYesOrNo
, maybeA
, defaultTo
, deleteIfEmpty
import Text.Printf
+yesOrNo :: Bool -> String
+yesOrNo True = "yes"
+yesOrNo False = "no"
+
+
parseYesOrNo :: ArrowChoice a => a String Bool
parseYesOrNo
= proc str -> do case str of