-- Example of using Broadcom GPIO pin numbering.
-- Run with LEDs connected to wiringPi pins 0-7:
--   https://www.flickr.com/photos/107479024@N04/31360240974/
-- Blinks the LEDs in sequence:
--   https://www.flickr.com/photos/107479024@N04/32070893472/

import Control.Concurrent
import Control.Monad

import System.Hardware.WiringPi

main = do
  wiringPiSetupGpio
  forM_ [0..7] $ \x -> pinMode x OUTPUT
  forever $ forM_ [0..7] $ \x -> do
    x' <- wpiPinToGpio x
    digitalWrite x' HIGH
    threadDelay 200000
    digitalWrite x' LOW