Skip to content

Commit

Permalink
[ fix ] prepend implementation
Browse files Browse the repository at this point in the history
  • Loading branch information
@stefan-hoeck
stefan-hoeck committed Sep 26, 2024
1 parent 365c071 commit 24e1450
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/Data/Queue.idr
View file
Original file line number Diff line number Diff line change
Expand Up @@ -72,7 +72,7 @@ dequeue (Q front back) =
||| `peekOldest`.
export
prepend : a -> Queue a -> Queue a
prepend x (Q f b) = Q f (b :< x)
prepend x (Q f b) = Q (x::f) b

||| Return the last element of the queue, plus the unmodified
||| queue.
Expand Down

0 comments on commit 24e1450

Please sign in to comment.