Fix warnings

src/Quasar/Wayland/Client/JuicyPixels.hs

@@ -5,7 +5,6 @@ module Quasar.Wayland.Client.JuicyPixels (
 ) where
 
 import Codec.Picture
-import Data.Bits( unsafeShiftL, unsafeShiftR, (.|.), (.&.) )
 import Foreign
 import Quasar.Prelude
 import Quasar.Wayland.Client.Buffer
@@ -24,7 +23,7 @@ toImageBuffer shm image = do
     width = imageWidth image
     height = imageHeight image
 
-  withForeignPtr ptr \ptr' -> forM [(x, y) | x <- [0 .. width - 1], y <- [0 .. height - 1]] \(x, y) -> do
+  withForeignPtr ptr \ptr' -> forM_ [(x, y) | x <- [0 .. width - 1], y <- [0 .. height - 1]] \(x, y) -> do
     pokeByteOff ptr' ((x + (y * width)) * 4) (pixelRgba8ToWlARGB (pixelAt image x y))
 
   pure buffer
@@ -37,5 +36,8 @@ pixelRgba8ToWlARGB (PixelRGBA8 r g b a) =
     (fi g `unsafeShiftL` (1 * bitCount)) .|.
     (fi r `unsafeShiftL` (2 * bitCount)) .|.
     (fi a `unsafeShiftL` (3 * bitCount))
-  where fi = fromIntegral
-        bitCount = 8
+  where
+    fi :: Pixel8 -> Word32
+    fi = fromIntegral
+    bitCount :: Int
+    bitCount = 8

src/Quasar/Wayland/Connection.hs

@@ -77,7 +77,7 @@ connectionThread connection work = asyncWithUnmask' \unmask -> unmask work `catc
   where
     traceAndDisposeConnection :: SomeException -> IO ()
     traceAndDisposeConnection (isCancelAsync -> True) = pure ()
-    -- TODO this logs- and then discard exceptions. Ensure this is the desired behavior?
+    -- NOTE this logs- and then discards exceptions (might need to be reworked later)
     traceAndDisposeConnection ex = traceIO (displayException ex) >> disposeEventuallyIO_ connection
 
 sendThread :: WaylandConnection s -> IO ()

src/Quasar/Wayland/Protocol.hs

@@ -37,7 +37,7 @@ module Quasar.Wayland.Protocol (
   Version,
   interfaceVersion,
   Side(..),
-  IsSide,
+  IsSide(MessageHandler),
   IsInterfaceSide,
 
   -- * For wl_display