fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Instances for Rating

Browse Source
This commit is contained in:
Gregor Kleen 2017-10-09 22:42:02 +02:00
parent 674a17acbe
commit 57ee32cc9c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Handler/Utils/Zip/Rating.hs
View File

@ -4,6 +4,7 @@
{-# LANGUAGE NamedFieldPuns #-} {-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE ViewPatterns #-} {-# LANGUAGE ViewPatterns #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE DeriveGeneric, DeriveDataTypeable #-}
{-# OPTIONS_GHC -fno-warn-orphans #-} {-# OPTIONS_GHC -fno-warn-orphans #-}
{-# OPTIONS_GHC -fno-warn-name-shadowing #-} {-# OPTIONS_GHC -fno-warn-name-shadowing #-}
@ -30,6 +31,9 @@ import qualified Data.ByteString.Lazy as Lazy (ByteString)
import Text.Read (readEither) import Text.Read (readEither)
import GHC.Generics (Generic)
import Data.Typeable (Typeable)
instance HasResolution prec => Pretty (Fixed prec) where instance HasResolution prec => Pretty (Fixed prec) where
pretty = pretty . show pretty = pretty . show
@ -41,8 +45,7 @@ data Rating = Rating
, ratingSubmissionId :: SubmissionId , ratingSubmissionId :: SubmissionId
, ratingComment :: Maybe Text , ratingComment :: Maybe Text
, ratingPoints :: Maybe Points , ratingPoints :: Maybe Points
} } deriving (Read, Show, Eq, Generic, Typeable)
getRating :: SubmissionId -> YesodDB UniWorX (Maybe Rating) getRating :: SubmissionId -> YesodDB UniWorX (Maybe Rating)