Fix unused argument warnings on writeToBiSignal# (#2822)

clash-lang · Oct 9, 2024 · a532ef0 · a532ef0
1 parent 3b755b9
commit a532ef0
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/changelog/2024-10-07T15_01_17+02_00_fix_writeToBiSignal_warnings b/changelog/2024-10-07T15_01_17+02_00_fix_writeToBiSignal_warnings
@@ -0,0 +1 @@
+FIXED: Unused argument warnings on writeToBiSignal#
diff --git a/clash-prelude/src/Clash/Signal/BiSignal.hs b/clash-prelude/src/Clash/Signal/BiSignal.hs
@@ -1,7 +1,7 @@
 {-|
 Copyright  :  (C) 2017, Google Inc.
                   2019, Myrtle Software Ltd
-                  2022-2023, QBayLogic B.V.
+                  2022-2024, QBayLogic B.V.
 License    :  BSD2 (see the file LICENSE)
 Maintainer :  QBayLogic B.V. <[email protected]>
 
@@ -280,8 +280,7 @@ writeToBiSignal#
   -> Signal d Bool
   -> Signal d (BitVector n)
   -> BiSignalOut ds d n
--- writeToBiSignal# = writeToBiSignal#
-writeToBiSignal# _ maybeSignal _ _ = BiSignalOut [maybeSignal]
+writeToBiSignal# bIn maybeSignal wEn val = BiSignalOut [bIn `seq` wEn `seq` val `seq` maybeSignal]
 -- See: https://github.com/clash-lang/clash-compiler/pull/2511
 {-# CLASH_OPAQUE writeToBiSignal# #-}
 {-# ANN writeToBiSignal# hasBlackBox #-}
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		FIXED: Unused argument warnings on writeToBiSignal#