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