From fc1959bd9887ecc4d4ceb62a53e87abc6f49ef00 Mon Sep 17 00:00:00 2001
From: Nathan Ringo <nathan@remexre.com>
Date: Mon, 23 Sep 2024 21:46:34 -0500
Subject: Adds README, moves fpga stuff to a subdirectory.

---
 fpga/src/Util.bs | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 fpga/src/Util.bs

(limited to 'fpga/src/Util.bs')

diff --git a/fpga/src/Util.bs b/fpga/src/Util.bs
new file mode 100644
index 0000000..ab3074c
--- /dev/null
+++ b/fpga/src/Util.bs
@@ -0,0 +1,7 @@
+package Util where
+
+when_ :: (Monad m) => Bool -> m () -> m ()
+when_ True  x = x
+when_ False _ = return ()
+
+-- vim: set ft=haskell :
-- 
cgit v1.2.3