From 67aa26519c4593f760dfbc7888ae5cb6836c9471 Mon Sep 17 00:00:00 2001 From: Lucy Cifferello Date: Mon, 27 Jul 2020 15:31:08 -0600 Subject: [PATCH] remove relic data --- src/Lib/Registry.hs | 6 ------ 1 file changed, 6 deletions(-) diff --git a/src/Lib/Registry.hs b/src/Lib/Registry.hs index fb7901e..0db0957 100644 --- a/src/Lib/Registry.hs +++ b/src/Lib/Registry.hs @@ -16,7 +16,6 @@ import Yesod.Core import Lib.Semver import Lib.Types.Semver -import Data.Char type Registry = HashMap String (HashMap AppVersion FilePath) @@ -51,11 +50,6 @@ type S9PK = Extension "s9pk" type SYS_EXTENSIONLESS = Extension "" type PNG = Extension "png" -data Extensions = S9PK | PNG | EMPTY - deriving (Read) -instance Show Extensions where - show a = fmap toLower $ show a - instance IsString (Extension a) where fromString = Extension