5c00948b-e964-4355-a92e-635ceece6223

Committed 18 Jul 2026 02:16AM UTC coverage: 58.657% (-0.6%) from 59.228%

Build # 5c00948b-e964-4355-a92e-635ceece6223

Build Type

push

circleci

Committed by

web-flow

Commit Message

Switched Haskell formatter to fourmolu and ran on all files (#1763)

Coverage Stats

517 of 966 branches covered (53.52%)

Branch coverage included in aggregate %.

851 of 1590 new or added lines in 34 files covered. (53.52%)

84 existing lines in 13 files now uncovered.

2522 of 4215 relevant lines covered (59.83%)

154.42 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

0.0

/app/Scripts.hs

module Scripts (
    graphScripts,
    timetableScripts,
    drawScripts,
    postScripts,
    searchScripts,
    generateScripts,
    aboutScripts,
)
where

import Text.Blaze ((!))
import qualified Text.Blaze.Html5 as H
import qualified Text.Blaze.Html5.Attributes as A
import Util.Blaze

graphScripts :: H.Html
graphScripts = H.script ! A.src "/static/js/graph/app.js" $ ""

timetableScripts :: H.Html
timetableScripts = H.script ! A.src "/static/js/grid/app.js" $ ""

drawScripts :: H.Html
drawScripts = do
    mapM_
        toScript
        [ "/static/js/draw/variables.js"
        , "/static/js/draw/path.js"
        , "/static/js/draw/setup.js"
        , "/static/js/vendor/jscolor.min.js"
        ]
    H.script ! A.src "/static/js/draw/app.js" $ ""

postScripts :: H.Html
postScripts = do
    mapM_ toScript []
    H.script ! A.src "/static/js/post/app.js" $ ""

searchScripts :: H.Html
searchScripts = do
    H.script ! A.src "/static/js/search/app.js" $ ""

generateScripts :: H.Html
generateScripts = do
    H.script ! A.src "/static/js/generate/app.js" $ ""

aboutScripts :: H.Html
aboutScripts = do
    H.script ! A.src "/static/js/about/app.js" $ ""

1	module Scripts (
2	graphScripts,
3	timetableScripts,
4	drawScripts,
5	postScripts,
6	searchScripts,
7	generateScripts,
8	aboutScripts,
9	)
10	where
11
12	import Text.Blaze ((!))
13	import qualified Text.Blaze.Html5 as H
14	import qualified Text.Blaze.Html5.Attributes as A
15	import Util.Blaze
16
17	graphScripts :: H.Html
18	graphScripts = H.script ! A.src "/static/js/graph/app.js" $ ""	×
19
20	timetableScripts :: H.Html
21	timetableScripts = H.script ! A.src "/static/js/grid/app.js" $ ""	×
22
23	drawScripts :: H.Html
24	drawScripts = do	×
NEW 25	mapM_	×
NEW 26	toScript	×
NEW 27	[ "/static/js/draw/variables.js"	×
NEW 28	, "/static/js/draw/path.js"	×
NEW 29	, "/static/js/draw/setup.js"	×
NEW 30	, "/static/js/vendor/jscolor.min.js"	×
31	]
UNCOV 32	H.script ! A.src "/static/js/draw/app.js" $ ""	×
33
34	postScripts :: H.Html
35	postScripts = do	×
36	mapM_ toScript []	×
37	H.script ! A.src "/static/js/post/app.js" $ ""	×
38
39	searchScripts :: H.Html
40	searchScripts = do	×
41	H.script ! A.src "/static/js/search/app.js" $ ""	×
42
43	generateScripts :: H.Html
44	generateScripts = do	×
45	H.script ! A.src "/static/js/generate/app.js" $ ""	×
46
47	aboutScripts :: H.Html
48	aboutScripts = do	×
49	H.script ! A.src "/static/js/about/app.js" $ ""	×

Courseography / courseography / 5c00948b-e964-4355-a92e-635ceece6223

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous