{-# LANGUAGE DeriveLift #-}
{-# LANGUAGE DeriveGeneric #-}
module Exigo.Types where
import Data.Aeson
import Data.Text ( Text )
import GHC.Generics
import Language.Haskell.TH.Syntax (Lift)
import Instances.TH.Lift ()
data Question = Question {
qid :: Text
, qDesc :: Text
, qMarks :: Int
}
deriving (Eq, Show, Lift, Generic)
data AssessmentMetadata = AssessmentMetadata {
assessmentTitle :: Text
, assessmentQuestions :: [Question]
}
deriving (Eq, Show, Lift, Generic)
instance FromJSON Question where
instance ToJSON Question where
instance FromJSON AssessmentMetadata where
instance ToJSON AssessmentMetadata where