From f9b73dc7b93bbf60f5b2281a5056c4339e049388 Mon Sep 17 00:00:00 2001
From: Nathan Ringo <nathan@remexre.com>
Date: Sun, 5 May 2024 22:30:50 -0500
Subject: triyng a uart from scratch... not yet working...

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

(limited to 'src/Util.bs')

diff --git a/src/Util.bs b/src/Util.bs
new file mode 100644
index 0000000..ab3074c
--- /dev/null
+++ b/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