Commit e4ee17c1 authored by Nicolas Lenz's avatar Nicolas Lenz

yeeting complete

parent b00443c5
......@@ -16,7 +16,7 @@ main = do
, connectionUseSecure = Nothing
, connectionUseSocks = Nothing
}
connectionPut con (T.encodeUtf8 "PX 20 20 ff0000\n")
yeet con 20 30 (PixelRGB8 255 0 0)
connectionClose con
data Pixel = Pixel {
......@@ -27,4 +27,4 @@ data Pixel = Pixel {
yeet :: Connection -> Int -> Int -> PixelRGB8 -> IO ()
yeet con x y (PixelRGB8 r g b) = connectionPut con $ T.encodeUtf8
$ printf "PX %d %d %02x%02x%02x\n" x y r g b
$ T.pack $ printf "PX %d %d %02x%02x%02x\n" x y r g b
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment