From f85cc8f6df5a185b1479aa3e80d4701421f67401 Mon Sep 17 00:00:00 2001
From: Stelios Georgiou <steliosdg@gmail.com>
Date: Mon, 27 Dec 2021 04:21:18 +0000
Subject: [PATCH] apply toLower before titlecase

---
 src/Lib.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Lib.hs b/src/Lib.hs
index caa4dc7..82b35dd 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -142,6 +142,9 @@ sanitize text =
         & T.unwords . T.words
         & T.unpack
         & filter validChars
+        & T.pack
+        & T.toLower
+        & T.unpack
         & titlecase
         & T.pack