Main.app: admit geometry when capturing image data

1 files changed, 1 insertions, 1 deletions

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 ()