network-can

CAN bus networking using Linux SocketCAN or SLCAN backends.

Usage

import qualified Control.Monad
import qualified Control.Monad.IO.Class
import qualified Network.CAN
import qualified Network.SocketCAN

main :: IO ()
main = do
  Network.SocketCAN.runSocketCAN
    (Network.SocketCAN.mkCANInterface "vcan0")
    $ do
        Network.CAN.send
          $ Network.CAN.standardMessage
              0x123
              [0xDE, 0xAD]

        Control.Monad.forever
          $ Network.CAN.recv
            >>= Control.Monad.IO.Class.liftIO . print