From af21d50ffce41a82a90c3ece2e4e2763b6ccb3e8 Mon Sep 17 00:00:00 2001
From: Christopher Chalmers <c.chalmers@me.com>
Date: Thu, 16 Nov 2023 12:50:05 +0000
Subject: [PATCH] Keep Arrows on older ghcs

---
 example/Testing.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/example/Testing.hs b/example/Testing.hs
index 9497936..fe4fe15 100644
--- a/example/Testing.hs
+++ b/example/Testing.hs
@@ -10,6 +10,10 @@
 For testing the circuit notation.
 -}
 
+{-# LANGUAGE CPP            #-}
+#if __GLASGOW_HASKELL__ <= 902
+{-# LANGUAGE Arrows            #-}
+#endif
 {-# LANGUAGE BlockArguments            #-}
 {-# LANGUAGE GADTs                     #-}
 -- {-# LANGUAGE NoMonomorphismRestriction #-}