diff options
Diffstat (limited to 'fpga/src/HyperBus.bs')
| -rw-r--r-- | fpga/src/HyperBus.bs | 7 |
1 files changed, 6 insertions, 1 deletions
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 : |