hero: move CanSnakeCase to Alpha

1 files changed, 0 insertions, 7 deletions

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