diff options
author | tzlil <tzlils@protonmail.com> | 2024-04-05 13:09:49 +0300 |
---|---|---|
committer | tzlil <tzlils@protonmail.com> | 2024-04-05 13:09:49 +0300 |
commit | 01e5d550f3e5e15f9f721603fb3bfed9f51f4525 (patch) | |
tree | 6211b8af4b85f3d0e14421155652b02b0b3be5bd /src/Blinker.hs | |
parent | fde8f4b6420689a5e4e45700b8618cb014a7bf06 (diff) |
Diffstat (limited to 'src/Blinker.hs')
-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 |