From fb92e20524a49cebe11c9c3d61a89e74a71dccfd Mon Sep 17 00:00:00 2001
From: loooph <loooph@gmx.de>
Date: Wed, 1 Mar 2023 04:24:13 +0100
Subject: [PATCH] add type for patternize

---
 dfs.tidal | 1 +
 1 file changed, 1 insertion(+)

diff --git a/dfs.tidal b/dfs.tidal
index 3930be1..743486a 100644
--- a/dfs.tidal
+++ b/dfs.tidal
@@ -99,6 +99,7 @@ let edgePattern g e = (n $ pure $ toEnum $ (snd e) `mod` 31) # (s $ pure $ instr
                                                                               # resonance 0.2
                                                                               # end 0.2
                                                                               # gain 0.8
+    patternize :: Graph -> [[Pattern ValueMap]]
     patternize g = map (map (\(x,y) -> fastcat [x,y])) $ map (\(x,y) -> zip (repeat $ vertexPattern g x) (map (edgePattern g) y)) $ nodeEdgePairs g
     gs = [ k 30, buildG (32,33) [(32,33)] ]
 in d1 $ id