From ca6106f931c5e6982e24639495dd9feb69c37453 Mon Sep 17 00:00:00 2001 From: Hannes Schulze Date: Tue, 6 Aug 2024 12:57:56 +0200 Subject: allocate arguments on the haskell heap --- highway/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'highway') diff --git a/highway/Main.hs b/highway/Main.hs index 617a0ee..4c169e4 100644 --- a/highway/Main.hs +++ b/highway/Main.hs @@ -12,8 +12,8 @@ import qualified Data.Map as M geometry :: WLOutput.Geometry geometry = WLOutput.Geometry { WLOutput.x = 0 , WLOutput.y = 0 - , WLOutput.physicalWidth = 5120 - , WLOutput.physicalHeight = 2880 + , WLOutput.physicalWidth = 623 + , WLOutput.physicalHeight = 583 , WLOutput.subpixel = WLOutput.SubpixelNone , WLOutput.make = "Apple" , WLOutput.model = "Studio Display" -- cgit v1.3.1