9 lines
243 B
Haskell
9 lines
243 B
Haskell
module Dodge.WindowSize where
|
|
|
|
import Dodge.Data.Config
|
|
|
|
getWindowSize :: Integral a => (Config -> ResFactor) -> Config -> (a,a)
|
|
getWindowSize f cfig = (g _windowX, g _windowY)
|
|
where
|
|
g h = fromIntegral $ applyResFactor (f cfig) (h cfig)
|