diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Blinker.hs | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/src/Blinker.hs b/src/Blinker.hs index 4537fb7..2c9b094 100644 --- a/src/Blinker.hs +++ b/src/Blinker.hs @@ -40,20 +40,12 @@ topEntity :: `Annotate` 'StringAttr "chip_pin" "P11" `Annotate` 'StringAttr "altera_attribute" "-name IO_STANDARD \"1.2V\"" - -> "I2C_SCL" ::: BiSignalIn 'PullUp Input (BitSize Bit) - `Annotate` 'StringAttr "chip_pin" "B7" - `Annotate` 'StringAttr - "altera_attribute" "-name IO_STANDARD \"2.5V\"" - -> "I2C_SDA" ::: BiSignalIn 'PullUp Input (BitSize Bit) - `Annotate` 'StringAttr "chip_pin" "G11" - `Annotate` 'StringAttr - "altera_attribute" "-name IO_STANDARD \"2.5V\"" -> "UART_TX" ::: Signal Input Bit `Annotate` 'StringAttr "chip_pin" "L9" `Annotate` 'StringAttr "altera_attribute" "-name IO_STANDARD \"2.5V\"" -topEntity clk rx key0 sclIn sdaIn = (txBit) +topEntity clk rx key0 = (txBit) where baud = SNat @115200 uart' = exposeClockResetEnable (uart baud) clk resetGen enableGen @@ -73,7 +65,7 @@ type CPUOut = Maybe (BitVector 8) data CPUState = Initialization | TransmittingUART (BitVector 8) | Listening - deriving (Generic, NFDataX) + deriving (Generic, NFDataX, Show) cpu :: CPUIn -> State CPUState CPUOut cpu CPUIn{rx=Just rx} = do put $ TransmittingUART rx |