20 lines
394 B
Haskell
20 lines
394 B
Haskell
package Bus(a) where
|
|
|
|
import Types
|
|
import BusTypes
|
|
|
|
interface (TestType :: * -> *) t = {}
|
|
-- doSomething :: t -> Action
|
|
|
|
mkTestType :: (Bits t n, Arith t, Eq t) => Module (TestType t)
|
|
mkTestType = do
|
|
return $ interface TestType {}
|
|
|
|
mkTestTop :: Module Empty
|
|
mkTestTop = do
|
|
testType :: TestType (UInt 5)
|
|
testType <- mkTestType
|
|
return $ interface Empty { }
|
|
|
|
a :: UInt 5
|
|
a = 3
|