Skip to content

Commit

Permalink
make cond's default argument lazy
Browse files Browse the repository at this point in the history
  • Loading branch information
kbertalan authored and gallais committed Mar 15, 2023
1 parent 442c5b5 commit c64c6a4
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/Core/Core.idr
Original file line number Diff line number Diff line change
Expand Up @@ -894,7 +894,7 @@ wrapRef x onClose op
pure o

export
cond : List (Lazy Bool, Lazy a) -> a -> a
cond : List (Lazy Bool, Lazy a) -> Lazy a -> a
cond [] def = def
cond ((x, y) :: xs) def = if x then y else cond xs def

Expand Down

0 comments on commit c64c6a4

Please sign in to comment.