-- Example of using digitalWrite.
-- 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
  forM_ [0..7] $ \x -> pinMode (Wpi x) OUTPUT
  forever $ forM_ [0..7] $ \x -> do
    digitalWrite (Wpi x) HIGH
    threadDelay 200000
    digitalWrite (Wpi x) LOW