From 40016c36e5f5987ed46b43180f7c22e504c97d77 Mon Sep 17 00:00:00 2001 From: Filip Gralinski Date: Sat, 1 Sep 2018 14:01:17 +0200 Subject: [PATCH] fix function name --- Handler/ShowChallenge.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Handler/ShowChallenge.hs b/Handler/ShowChallenge.hs index 0f4c912..4b943ac 100644 --- a/Handler/ShowChallenge.hs +++ b/Handler/ShowChallenge.hs @@ -563,11 +563,11 @@ challengeAllSubmissionsWidget muserId challenge scheme challengeRepo submissions paramGraphsWidget :: Challenge -> [Entity Test] -> [Text] -> WidgetFor App () paramGraphsWidget challenge tests params = $(widgetFile "param-graphs") - where chartJSs = getCharsJss challenge selectedTests params + where chartJSs = getChartJss challenge selectedTests params selectedTests = getMainTests tests -getCharsJss :: Challenge -> [Entity Test] -> [Text] -> JavascriptUrl (Route App) -getCharsJss challenge tests params = +getChartJss :: Challenge -> [Entity Test] -> [Text] -> JavascriptUrl (Route App) +getChartJss challenge tests params = mconcat $ [(getChartJs challenge test param) | test <- tests, param <- params] getChartJs :: Challenge