47 lines
1.4 KiB
Haskell
47 lines
1.4 KiB
Haskell
{-# LANGUAGE EmptyDataDecls #-}
|
|
{-# LANGUAGE FlexibleInstances #-}
|
|
{-# LANGUAGE GADTs #-}
|
|
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
|
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
|
{-# LANGUAGE NoImplicitPrelude #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE TypeFamilies #-}
|
|
{-# LANGUAGE RecordWildCards #-}
|
|
{-# LANGUAGE StandaloneDeriving #-}
|
|
|
|
|
|
module Model
|
|
( module Model
|
|
, module Model.Types
|
|
) where
|
|
|
|
import ClassyPrelude.Yesod
|
|
import Database.Persist.Quasi
|
|
-- import Data.Time
|
|
-- import Data.ByteString
|
|
import Model.Types
|
|
import Data.Aeson.TH
|
|
|
|
import Data.CaseInsensitive (CI)
|
|
import Data.CaseInsensitive.Instances ()
|
|
|
|
-- You can define all of your database entities in the entities file.
|
|
-- You can find more information on persistent and how to declare entities
|
|
-- at:
|
|
-- http://www.yesodweb.com/book/persistent/
|
|
share [mkPersist sqlSettings, mkDeleteCascade sqlSettings, mkMigrate "migrateAll'", mkSave "currentModel"]
|
|
$(persistFileWith lowerCaseSettings "models")
|
|
|
|
-- (Eq Course) is impossible so we derive it for the Uniqueness Constraint only
|
|
deriving instance Eq (Unique Course)
|
|
|
|
data PWEntry = PWEntry
|
|
{ pwUser :: User
|
|
, pwHash :: Text
|
|
} deriving (Show)
|
|
$(deriveJSON defaultOptions ''PWEntry)
|
|
|
|
submissionRatingDone :: Submission -> Bool
|
|
submissionRatingDone Submission{..} = isJust submissionRatingPoints
|