make description optional

This commit is contained in:
Lucy Cifferello
2022-09-19 15:39:27 -06:00
parent 0caeab5b6b
commit 771c0f209d
2 changed files with 5 additions and 5 deletions

View File

@@ -6,14 +6,14 @@ import Foundation (Handler, RegistryCtx (..))
import Handler.Util (tickleMAU)
import Model (Category (..), EntityField (..))
import Settings (AppSettings (..))
import Startlude (Generic, Show, Text, pure, ($), (.), (<$>), (&&&))
import Startlude (Generic, Show, Text, pure, ($), (.), (<$>), (&&&), Maybe)
import Yesod (ToContent (..), ToTypedContent (..), YesodPersist (runDB), getsYesod)
import Yesod.Core.Types (JSONResponse (..))
data InfoRes = InfoRes
{ name :: !Text
, description:: !Text
, description:: !(Maybe Text)
, categories :: ![Text]
}
deriving (Show, Generic)