Skip to content

Commit c64c6a4

Browse files
kbertalangallais
authored andcommitted
make cond's default argument lazy
1 parent 442c5b5 commit c64c6a4

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/Core/Core.idr

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -894,7 +894,7 @@ wrapRef x onClose op
894894
pure o
895895

896896
export
897-
cond : List (Lazy Bool, Lazy a) -> a -> a
897+
cond : List (Lazy Bool, Lazy a) -> Lazy a -> a
898898
cond [] def = def
899899
cond ((x, y) :: xs) def = if x then y else cond xs def
900900

0 commit comments

Comments
 (0)