From 359377777e5499be18c811df10cdcdf4e016e87c Mon Sep 17 00:00:00 2001
From: Rod Kay <rodakay5@gmail.com>
Date: Thu, 11 Aug 2022 12:30:34 +1000
Subject: [PATCH] lace.text.utility: Cosmetics.

---
 1-base/lace/source/text/lace-text-utility.adb | 4 ++--
 1-base/lace/source/text/lace-text-utility.ads | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/1-base/lace/source/text/lace-text-utility.adb b/1-base/lace/source/text/lace-text-utility.adb
index 6955f97..c245dc8 100644
--- a/1-base/lace/source/text/lace-text-utility.adb
+++ b/1-base/lace/source/text/lace-text-utility.adb
@@ -6,12 +6,12 @@ with
 package body lace.Text.utility
 is
 
-   function Contains (Self : in Text.item;   Pattern : in String) return Boolean
+   function contains (Self : in Text.item;   Pattern : in String) return Boolean
    is
       use ada.Strings.fixed;
    begin
       return Index (+Self, Pattern) /= 0;
-   end Contains;
+   end contains;
 
 
 
diff --git a/1-base/lace/source/text/lace-text-utility.ads b/1-base/lace/source/text/lace-text-utility.ads
index 14c9a30..ee817a4 100644
--- a/1-base/lace/source/text/lace-text-utility.ads
+++ b/1-base/lace/source/text/lace-text-utility.ads
@@ -3,7 +3,7 @@ package lace.Text.utility
 -- Provides utility subprograms.
 --
 is
-   function  Contains (Self : in     Text.item;   Pattern : in String) return Boolean;
+   function  contains (Self : in     Text.item;   Pattern : in String) return Boolean;
 
 
    function  replace  (Self : in     Text.item;   Pattern : in String;