Last active

Embed URL

HTTPS clone URL

SSH clone URL

You can clone with HTTPS or SSH.

Download Gist

Working on a function to receive a line of serial data in Haskell.

View recvLn.hs
1 2 3 4 5 6 7 8 9 10 11 12
import qualified Data.ByteString.Char8 as B
import System.Hardware.Serialport (SerialPort, recv)
 
recvLn :: SerialPort -> IO B.ByteString
recvLn s = do
-- Receive one byte at a time.
first <- recv s 1
rest <- if first == B.singleton '\n'
then return $ B.empty
else recvLn s
-- Once the recursion finishes, we glue the parts together.
return $ first `B.append` rest
Owner

Biggest concern right now is that it doesn't appear very lazy. I'm not sure how the compiler will actually shake it out, but in pureland some sort of takeWhile seems like the best solution. Not sure if that will be applicable here.

But it works!

too many coments!

-- If the byte was a newline,
rest <- if first == B.pack "\n"

These lines are just the same, why write it twice? Other are also too obvious. Try to document nuances, not the codeflow.

Owner

@danbst I agree. I was initially worried about having no comments. I think I've struck more of a balance now! The first one may seem obvious, but I'm thinking of people who aren't familiar with the serialport library.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Something went wrong with that request. Please try again.