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
|
