style: remove unnecessary do
block
This commit is contained in:
parent
07b830672b
commit
2ac7b192b7
|
@ -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))
|
||||||
|
|
Loading…
Reference in a new issue