Fix another minor warning

Author: fwcd

lighthouse-client/src/Lighthouse/Utils/General.hs

@@ -51,5 +51,5 @@ whileM_ :: Monad m => m Bool -> m a -> m ()
 whileM_ cond body = do
     c <- cond
     when c $ do
-        body
+        _ <- body
         whileM_ cond body