Haskell Serial Port with "serialport" library

SerialportExample.hs

import qualified Data.ByteString.Char8 as B
import System.IO
import System.Hardware.Serialport
import Control.Monad.Loops
import Control.Monad
import Data.Char

stringToIntList :: String -> [Int]
stringToIntList line
  | ((>2) . length) line = map ord line
  | otherwise = []
  
main = do
  let port = "/dev/ttyUSB0"  -- Linux
  s <- hOpenSerial port defaultSerialSettings {commSpeed = CS115200,
                                              timeout = 1}
                                              --- The Timeout is given in tenth of seconds. 
                                              --- This means, that the program waits 100 ms for a
                                              --- character, until it throws an "End of File reached" error
  replicateM_ 100 (hGetLine s >>= (print . stringToIntList))
  hClose s