From 28be946e750b6d598a220f47028ad11ec0648df9 Mon Sep 17 00:00:00 2001
From: Eric Conlon <37287+ejconlon@users.noreply.github.com>
Date: Sat, 17 Feb 2024 12:07:48 -0800
Subject: [PATCH] alt

---
 minipat-dirt/src/Minipat/Dirt/Prelude.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/minipat-dirt/src/Minipat/Dirt/Prelude.hs b/minipat-dirt/src/Minipat/Dirt/Prelude.hs
index 41e280f..b7ab4e1 100644
--- a/minipat-dirt/src/Minipat/Dirt/Prelude.hs
+++ b/minipat-dirt/src/Minipat/Dirt/Prelude.hs
@@ -23,6 +23,8 @@ module Minipat.Dirt.Prelude
   , slowList
   , fastAppend
   , slowAppend
+  , alt
+  , rand
   )
 where
 
@@ -186,6 +188,12 @@ fastAppend s1 s2 = estreamSeq [(s1, 1), (s2, 1)]
 slowAppend :: S a -> S a -> S a
 slowAppend s1 s2 = slowBy 2 (fastAppend s1 s2)
 
+alt :: Seq (S a) -> S a
+alt = estreamAlt
+
+rand :: Seq (S a) -> S a
+rand = estreamRand
+
 -- TODO
 -- seqPLoop :: Seq (CycleTime, CycleTime, S a) -> S a
 -- rev :: S a -> S a