From 15ad59dbc0899181a3066ba2a4d8104a7b055861 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Thu, 30 Mar 2023 19:41:04 +1300
Subject: [PATCH] Draft utility to aid resolving conflicting dataflow.

---
 Graphics/Layout/Box.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Graphics/Layout/Box.hs b/Graphics/Layout/Box.hs
index 478740c..a4695ae 100644
--- a/Graphics/Layout/Box.hs
+++ b/Graphics/Layout/Box.hs
@@ -78,6 +78,11 @@ lowerLength _ (Pixels x) = x
 lowerLength outerwidth (Percent x) = x * outerwidth
 lowerLength _ _ = 0
 
+mapAuto x Auto = Pixels x
+mapAuto x Preferred = Pixels x
+mapAuto x Min = Pixels x
+mapAuto _ x = x
+
 class Zero a where
     zero :: a
 
-- 
2.30.2