initial support for Bus types

bs/Top.bs

@@ -5,6 +5,7 @@ import Core
 import Serializer
 import BRAM
 import CBindings
+import Bus
 
 type FCLK = 25000000
 type BAUD = 9600
@@ -24,7 +25,7 @@ mkTop = do
   persistLed  :: Reg (Bit 8) <- mkReg 0
   messageM $ "Hallo!!" + (realToString 5)
 
-  -- refactor such that the following rules are let-bound to 
+  -- refactor such that the following rules are let-bound to
   -- `attachIO` identifier
   addRules $
     rules
@@ -43,7 +44,7 @@ mkTop = do
   return $
     interface ITop
       ftdi_rxd =  serializer.bitLineOut
-      ftdi_txd bitIn =  
+      ftdi_txd bitIn =
            do
              deserializer.putBitIn bitIn
       led =  persistLed
@@ -73,4 +74,4 @@ mkSim = do
         do
           restoreTerminal
           $display "GOT CTRL+C"
-          $finish
+          $finish