add get maybe bool from web argument

totoro
1 parent 605449b0
Showing 1 changed file with 14 additions and 2 deletions Show diff stats
web/CXM_web_arg_utils.anubis
@@ -129,6 +129,18 @@ public define Maybe(String)
   }
 .
+public define Maybe(Bool)
+  get_mb_Bool
+  (
+    List(Web_arg) lwa,
+    String        arg_name
+  ) =
+  if web_arg_value(lwa, arg_name) is
+  {
+    not_found     then failure,
+    found(value)  then success(to_Bool(value))
+  }.
+  
 public define Bool
   get_Bool
   (
@@ -137,8 +149,8 @@ public define Bool
   ) =
   if web_arg_value(lwa, arg_name) is
   {
-    not_found then false,
-    found(_)  then true
+    not_found     then false,
+    found(value)  then true
   }.
 public define Bool