Move pair to V2

2025-11-14 02:13:03 +00:00
parent 292a1c3f42
commit bfd7aa619e
6 changed files with 27 additions and 27 deletions
@@ -1,8 +1,9 @@
 module Dodge.WindowSize (getWindowSize) where

 import Dodge.Data.Config
+import Linear

-getWindowSize :: Integral a => (Config -> ResFactor) -> Config -> (a,a)
-getWindowSize f cfig = (g _windowX, g _windowY)
+getWindowSize :: Integral a => (Config -> ResFactor) -> Config -> V2 a
+getWindowSize f cfig = V2 (g _windowX) (g _windowY)
  where
    g h = fromIntegral $ applyResFactor (f cfig) (h cfig)