s464900/gonito
1
0
Fork 0
forked from filipg/gonito
Code Issues Pull Requests Projects Releases Wiki Activity

fix function name

Browse Source
This commit is contained in:
Filip Gralinski 2018-09-01 14:01:17 +02:00
parent c23e28250a
commit 40016c36e5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Handler/ShowChallenge.hs
View File

@ -563,11 +563,11 @@ challengeAllSubmissionsWidget muserId challenge scheme challengeRepo submissions
paramGraphsWidget :: Challenge -> [Entity Test] -> [Text] -> WidgetFor App () paramGraphsWidget :: Challenge -> [Entity Test] -> [Text] -> WidgetFor App ()
paramGraphsWidget challenge tests params = $(widgetFile "param-graphs") paramGraphsWidget challenge tests params = $(widgetFile "param-graphs")
where chartJSs = getCharsJss challenge selectedTests params where chartJSs = getChartJss challenge selectedTests params
selectedTests = getMainTests tests selectedTests = getMainTests tests
getCharsJss :: Challenge -> [Entity Test] -> [Text] -> JavascriptUrl (Route App) getChartJss :: Challenge -> [Entity Test] -> [Text] -> JavascriptUrl (Route App)
getCharsJss challenge tests params = getChartJss challenge tests params =
mconcat $ [(getChartJs challenge test param) | test <- tests, param <- params] mconcat $ [(getChartJs challenge test param) | test <- tests, param <- params]
getChartJs :: Challenge getChartJs :: Challenge