toki/advent-of-code-2024
1
0
Fork 0
Code Issues Pull requests Activity

style: decrease indentation on TTImp quote

Browse source
This commit is contained in:
Kiana Sheibani 2024-12-05 06:06:16 -05:00
parent b37d5f2dd4
commit 07b830672b
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
1 changed files with 13 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Data/Problem.idr
View file

@ -82,14 +82,16 @@ public export
fetchSolution : Problem -> Elab (String -> String) fetchSolution : Problem -> Elab (String -> String)
fetchSolution pr = do fetchSolution pr = do
let name = solutionName pr let name = solutionName pr
check `(\s => show (~(IVar EmptyFC name) s)) check `(\s => Prelude.show (~(IVar EmptyFC name) s))
<|> fail "\{show name} does not exist as a valid solution" <|> fail "\{show name} does not exist as a valid solution"
public export public export
fetchAllSols : (latest : Problem) -> Elab (SortedMap Problem (String -> String)) fetchAllSols : (latest : Problem) -> Elab (SortedMap Problem (String -> String))
fetchAllSols pr = fetchAllSols pr =
let prs = allProblems pr let prs = allProblems pr
list = foldr (\pr,tt => `(Prelude.(::) list = foldr
(\pr,tt =>
`(Prelude.(::)
(Builtin.MkPair (Builtin.MkPair
(Data.Problem.Pr (Data.Problem.Pr
(Prelude.fromInteger (Prelude.fromInteger
@ -97,7 +99,7 @@ fetchAllSols pr =
~(case pr.part of ~(case pr.part of
Part1 => `(Data.Problem.Part1) Part1 => `(Data.Problem.Part1)
Part2 => `(Data.Problem.Part2))) Part2 => `(Data.Problem.Part2)))
(\s => show (~(IVar EmptyFC $ solutionName pr) s))) (\s => Prelude.show (~(IVar EmptyFC $ solutionName pr) s)))
~(tt))) `(Prelude.Nil) prs ~(tt))) `(Prelude.Nil) prs
ttimp = `(Data.SortedMap.fromList ~(list)) ttimp = `(Data.SortedMap.fromList ~(list))
in check ttimp in check ttimp