From a76870b7f3dda5b564185cfd652e11998d7ff88d Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Sun, 12 Jul 2020 09:13:24 -0700
Subject: hero: move CanSnakeCase to Alpha

---
 Hero/App.hs | 7 -------
 1 file changed, 7 deletions(-)

(limited to 'Hero')

diff --git a/Hero/App.hs b/Hero/App.hs
index 9391eac..56289f8 100644
--- a/Hero/App.hs
+++ b/Hero/App.hs
@@ -72,13 +72,6 @@ instance ToJSON ComicId where
 instance FromJSON ComicId where
   parseJSON = genericParseJSON Data.Aeson.defaultOptions
 
--- | Class for turning different string types to snakeCase.
-class CanSnakeCase str where
-  snake :: str -> str
-
-instance CanSnakeCase Text where
-  snake = Data.Text.replace " " "-" . Data.Text.toLower
-
 -- | Used for looking up images on S3, mostly
 comicSlug :: Comic -> Text
 comicSlug Comic {..} = snake comicName <> "-" <> comicIssue
-- 
cgit v1.2.3