From 69fefab57c40f323d759dc444dbcebad15071585 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 13 Jul 2018 22:01:32 -0400
Subject: Re-named "Bool" type to "Bit".

---
 stdlib/source/lux/data/text.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'stdlib/source/lux/data/text.lux')

diff --git a/stdlib/source/lux/data/text.lux b/stdlib/source/lux/data/text.lux
index 3a9e6ab3b..8120f19d5 100644
--- a/stdlib/source/lux/data/text.lux
+++ b/stdlib/source/lux/data/text.lux
@@ -60,7 +60,7 @@
     #.None))
 
 (def: #export (starts-with? prefix x)
-  (-> Text Text Bool)
+  (-> Text Text Bit)
   (case (index-of prefix x)
     (#.Some +0)
     true
@@ -69,7 +69,7 @@
     false))
 
 (def: #export (ends-with? postfix x)
-  (-> Text Text Bool)
+  (-> Text Text Bit)
   (case (last-index-of postfix x)
     (#.Some n)
     (n/= (size x)
@@ -79,7 +79,7 @@
     false))
 
 (def: #export (contains? sub text)
-  (-> Text Text Bool)
+  (-> Text Text Bit)
   (case ("lux text index" text sub +0)
     (#.Some _)
     true
@@ -200,7 +200,7 @@
   (|> texts (list.interpose sep) concat))
 
 (def: #export (empty? text)
-  (-> Text Bool)
+  (-> Text Bit)
   (case text
     "" true
     _  false))
@@ -234,7 +234,7 @@
 
 (def: #export (space? char)
   {#.doc "Checks whether the character is white-space."}
-  (-> Nat Bool)
+  (-> Nat Bit)
   (case char
     (^or (^ (char "\t")) (^ (char "\v"))
          (^ (char " "))  (^ (char "\n"))
-- 
cgit v1.2.3