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

chore: add missing+remove redundant imports

Browse Source
This commit is contained in:
Wolfgang Witt 2021-02-23 23:14:31 +01:00 committed by Wolfgang Witt
parent b974942f07
commit 4f4cd394db
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Handler/Utils/Exam.hs
View File

@ -1,5 +1,4 @@
{-# OPTIONS_GHC -fno-warn-incomplete-uni-patterns #-} {-# OPTIONS_GHC -fno-warn-incomplete-uni-patterns #-}
{-# OPTIONS_GHC -Wwarn #-}
module Handler.Utils.Exam module Handler.Utils.Exam
( fetchExamAux ( fetchExamAux
@ -28,15 +27,15 @@ import Database.Esqueleto.Utils.TH
import qualified Data.Conduit.List as C import qualified Data.Conduit.List as C
import qualified Data.Map as Map import qualified Data.Map as Map
import qualified Data.Map.Merge.Lazy as Map
import qualified Data.Set as Set import qualified Data.Set as Set
import qualified Data.Foldable as F import qualified Data.Foldable as F
import qualified Data.CaseInsensitive as CI import qualified Data.CaseInsensitive as CI
import Control.Monad.Trans.Random.Lazy (evalRand)
import System.Random (mkStdGen) import System.Random (mkStdGen)
import Control.Monad.Random.Class (weighted) import System.Random.Shuffle (shuffle')
import Control.Monad.ST (ST, runST) import Control.Monad.ST (ST, runST)
import Data.Array (Array) import Data.Array (Array)
@ -49,6 +48,7 @@ import Data.List (findIndex, unfoldr)
import qualified Data.List as List import qualified Data.List as List
import Data.ExtendedReal import Data.ExtendedReal
import Data.Ratio (Ratio())
import qualified Data.RFC5051 as RFC5051 import qualified Data.RFC5051 as RFC5051
@ -265,7 +265,7 @@ examAutoOccurrence :: forall seed.
-> Map ExamOccurrenceId Natural -> Map ExamOccurrenceId Natural
-> Map UserId (User, Maybe ExamOccurrenceId) -> Map UserId (User, Maybe ExamOccurrenceId)
-> (Maybe (ExamOccurrenceMapping ExamOccurrenceId), Map UserId (Maybe ExamOccurrenceId)) -> (Maybe (ExamOccurrenceMapping ExamOccurrenceId), Map UserId (Maybe ExamOccurrenceId))
examAutoOccurrence (hash -> seed) rule config@ExamAutoOccurrenceConfig{..} occurrences users examAutoOccurrence (hash -> seed) rule ExamAutoOccurrenceConfig{..} occurrences users
| sum occurrences' < usersCount | sum occurrences' < usersCount
|| sum occurrences' <= 0 || sum occurrences' <= 0
|| Map.null users' || Map.null users'