1 files changed, 5 insertions(+), 0 deletions(-)

M 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