From 5c89c77fcf7493778732c12e2b141b5e9fa1f4a3 Mon Sep 17 00:00:00 2001 From: Nathan Ringo Date: Sun, 20 Oct 2024 17:49:23 -0500 Subject: Maybe repaired UART, I2C, and HyperBus (but now getting a weird error)... --- fpga/src/HyperBus.bs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'fpga/src/HyperBus.bs') diff --git a/fpga/src/HyperBus.bs b/fpga/src/HyperBus.bs index 2b75b6e..b841a64 100644 --- a/fpga/src/HyperBus.bs +++ b/fpga/src/HyperBus.bs @@ -13,7 +13,7 @@ interface HyperBusOut = rwds_out :: Maybe (Bit 1) dq_out :: Maybe (Bit 8) -mkHyperBus :: Wire (Bit 1) -> Wire (Bit 8) -> Module HyperBusOut +mkHyperBus :: Bit 1 -> Bit 8 -> Module HyperBusOut mkHyperBus rwds_in dq_in = module clockPin :: Reg (Bit 1) <- mkReg 0 rules @@ -31,4 +31,9 @@ mkHyperBus rwds_in dq_in = module rwds_out = Nothing dq_out = Nothing +mkDividedHyperBus :: Integer -> Bit 1 -> Bit 8 -> Module HyperBusOut +mkDividedHyperBus _divisor rwds_in dq_in = module + -- TODO + mkHyperBus rwds_in dq_in + -- vim: set ft=haskell : -- cgit v1.2.3