diff options
Diffstat (limited to 'Hero')
| -rw-r--r-- | Hero/App.hs | 7 |
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 |