-- | A simple clock package.
package Clock where

interface Clock =
  clk :: Bool

-- TODO: Make a multiclock that uses one count for all the sub-clocks in the
-- design.

mkClock :: Bit n -> Module Clock
mkClock divisor =
  module
    count :: Reg (Bit n) <- mkReg 0
    rules
      when True ==> count := if count == divisor - 1 then 0 else count + 1
    interface Clock
      clk = count == 0

-- vim: set ft=haskell :