fix bug wto show multiple versions in metadata

This commit is contained in:
Lucy Cifferello
2021-09-24 13:30:14 -06:00
committed by Keagan McClelland
parent 289e5c5b1d
commit d8143067b2
3 changed files with 74 additions and 4 deletions

View File

@@ -1,5 +1,6 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE DeriveGeneric #-}
module Lib.Types.Category where
@@ -16,7 +17,7 @@ data CategoryTitle = FEATURED
| MESSAGING
| SOCIAL
| ALTCOIN
deriving (Eq, Enum, Show, Read)
deriving (Eq, Enum, Show, Read, Generic)
instance PersistField CategoryTitle where
fromPersistValue = fromPersistValueJSON
toPersistValue = toPersistValueJSON
@@ -46,3 +47,4 @@ instance ToContent CategoryTitle where
toContent = toContent . toJSON
instance ToTypedContent CategoryTitle where
toTypedContent = toTypedContent . toJSON
instance Hashable CategoryTitle