[ fix ] bug in peekOldest

stefan-hoeck · Sep 26, 2024 · 84cf91e · 84cf91e
1 parent 3f303a1
commit 84cf91e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Data/Queue.idr b/src/Data/Queue.idr
@@ -85,7 +85,7 @@ export
 peekOldest : Queue a -> Maybe (a, Queue a)
 peekOldest q =
   case dequeue q of
-    Just (v,q') => Just (v, prepend v q')
+    Just (v,q') => Just (v, q)
     Nothing     => Nothing
 
 ||| Appends two `Queues`. O(m + n)