From b0ed36f90b7bddbd828fb518b69b33fabd1d7d73 Mon Sep 17 00:00:00 2001
From: alex <alex@slab.org>
Date: Thu, 11 Apr 2024 09:32:09 +0100
Subject: [PATCH] suppress name shadow warns

---
 BootTidal.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/BootTidal.hs b/BootTidal.hs
index 4990714c..af44fd5c 100644
--- a/BootTidal.hs
+++ b/BootTidal.hs
@@ -8,6 +8,8 @@ hSetEncoding stdout utf8
 
 tidal <- startTidal (superdirtTarget {oLatency = 0.05, oAddress = "127.0.0.1", oPort = 57120}) (defaultConfig {cVerbose = True})
 
+:set -Wno-name-shadowing
+
 :{
 let only = (hush >>)
     p = streamReplace tidal
@@ -67,6 +69,8 @@ let only = (hush >>)
     d16 = p 16
 :}
 
+:set -Wname-shadowing
+
 :{
 let getState = streamGet tidal
     setI = streamSetI tidal