style: remove unnecessary do block

This commit is contained in:
Kiana Sheibani 2024-12-05 06:08:51 -05:00
parent 07b830672b
commit 2ac7b192b7
Signed by: toki
GPG key ID: 6CB106C25E86A9F7

View file

@ -80,10 +80,10 @@ solutionName (Pr day part) =
public export public export
fetchSolution : Problem -> Elab (String -> String) fetchSolution : Problem -> Elab (String -> String)
fetchSolution pr = do fetchSolution pr =
let name = solutionName pr let name = solutionName pr
check `(\s => Prelude.show (~(IVar EmptyFC name) s)) in 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))