Use unsafeToActiveHigh for Clash >= 1.7

clash-lang · Oct 11, 2023 · 9451690 · 9451690
1 parent 156a34e
commit 9451690
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/clash-vexriscv/src/VexRiscv/JtagTcpBridge.hs b/clash-vexriscv/src/VexRiscv/JtagTcpBridge.hs
@@ -1,6 +1,7 @@
 -- SPDX-FileCopyrightText: 2023 Google LLC
 --
 -- SPDX-License-Identifier: Apache-2.0
+{-# LANGUAGE CPP #-}
 
 module VexRiscv.JtagTcpBridge where
 
@@ -67,7 +68,11 @@ jtagTcpBridge' port rst jtagOut = do
   -- {-
   (n2m, m2n) <- server port
 
+#if MIN_VERSION_clash_prelude(1,7,0)
+  let resets = boolToBit <$> unsafeToActiveHigh rst
+#else
   let resets = boolToBit <$> unsafeToHighPolarity rst
+#endif
 
   jtagIn <- client n2m m2n MDisconnected jtagOut