gistfile1.hs

import System.Hardware.Arduino
import Control.Monad (forever)
import Control.Monad.Trans (liftIO)



main :: IO ()
main = do
        putStrLn "Iniciando..."
        loop

led = digital 13

loop :: IO ()
loop = withArduino False "/dev/cu.usbmodemfd131" $ forever$ do
                liftIO $ do
                        putStrLn "Enter para encender"
                        getLine
                        
                digitalWrite led True

                liftIO $ do
                        putStrLn "Enter para apagar"
                        getLine
                digitalWrite led False