diff options
Diffstat (limited to 'src/Types/Classes.hs')
-rw-r--r-- | src/Types/Classes.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Types/Classes.hs b/src/Types/Classes.hs index bcf487c..529cf64 100644 --- a/src/Types/Classes.hs +++ b/src/Types/Classes.hs @@ -32,8 +32,8 @@ getModifier :: Class -> Float getModifier (Class (GradeFive m) _ _) = m getModifier (Class (GradeSix m) _ _) = m -updateScore :: ScoresList -> Class -> Int -> Int -> ScoresList -updateScore [] _ _ _ = [] -updateScore (s@(aClass, Score x y):ss) c p t +updateScore :: Class -> Int -> Int -> ScoresList -> ScoresList +updateScore _ _ _ [] = [] +updateScore c p t (s@(aClass, Score x y):ss) | c == aClass = (c, Score (x + (floor $ (fromIntegral p) * (getModifier aClass))) (y + t)):ss - | otherwise = s:updateScore ss c p t + | otherwise = s:updateScore c p t ss |