fix function name

This commit is contained in:
Filip Gralinski 2018-09-01 14:01:17 +02:00
parent c23e28250a
commit 40016c36e5

View File

@ -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