From 23f04635cc26e1b0553088f28553f518488a9fc8 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 1 May 2019 15:52:32 +0200
Subject: Setup personal page with Hakyll

---
 src/Utils/String.hs | 21 ---------------------
 1 file changed, 21 deletions(-)
 delete mode 100644 src/Utils/String.hs

(limited to 'src/Utils/String.hs')

diff --git a/src/Utils/String.hs b/src/Utils/String.hs
deleted file mode 100644
index 44cdf03..0000000
--- a/src/Utils/String.hs
+++ /dev/null
@@ -1,21 +0,0 @@
-module Utils.String
-  ( capitalizeWords
-  , capitalizeFirstWord
-  , capitalizeWord
-  ) where
-
-import Data.Char
-
-capitalizeWords :: String -> String
-capitalizeWords = unwords . map capitalizeWord . words
-
-capitalizeFirstWord :: String -> String
-capitalizeFirstWord = unwords . mapFirst capitalizeWord . words
-
-capitalizeWord :: String -> String
-capitalizeWord [] = []
-capitalizeWord (x:xs) = toUpper x : map toLower xs
-
-mapFirst :: (a -> a) -> [a] -> [a]
-mapFirst _ [] = []
-mapFirst f (x:xs) = f x : xs
-- 
cgit v1.2.3