From 01e5d550f3e5e15f9f721603fb3bfed9f51f4525 Mon Sep 17 00:00:00 2001 From: tzlil Date: Fri, 5 Apr 2024 13:09:49 +0300 Subject: finish removing i2c crap --- src/Blinker.hs | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) (limited to 'src/Blinker.hs') 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 -- cgit 1.4.1