From 641c00da98499a85fd0cdd99d093784344b4e757 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Tue, 8 Jun 2021 20:40:19 +0200
Subject: Main.app: admit geometry when capturing image data

---
 src/main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/main.hs b/src/main.hs
index fbf2bc9..7a01b9c 100644
--- a/src/main.hs
+++ b/src/main.hs
@@ -100,7 +100,7 @@ app client = do
                 captureFinish Nothing
 
           where
-            [Variant (ValueBytes rawImage)] = rest
+            [ Variant (ValueBytes rawImage), Variant _geometry ] = rest
 
         _sig ->
           return ()
-- 
cgit v1.2.3