style: remove unnecessary do
block
This commit is contained in:
parent
07b830672b
commit
2ac7b192b7
|
@ -80,10 +80,10 @@ solutionName (Pr day part) =
|
|||
|
||||
public export
|
||||
fetchSolution : Problem -> Elab (String -> String)
|
||||
fetchSolution pr = do
|
||||
fetchSolution pr =
|
||||
let name = solutionName pr
|
||||
check `(\s => Prelude.show (~(IVar EmptyFC name) s))
|
||||
<|> fail "\{show name} does not exist as a valid solution"
|
||||
in check `(\s => Prelude.show (~(IVar EmptyFC name) s))
|
||||
<|> fail "\{show name} does not exist as a valid solution"
|
||||
|
||||
public export
|
||||
fetchAllSols : (latest : Problem) -> Elab (SortedMap Problem (String -> String))
|
||||
|
|
Loading…
Reference in a new issue