Cleanup
This commit is contained in:
@@ -2,7 +2,7 @@ module Dodge.WindowSize where
|
||||
|
||||
import Dodge.Data.Config
|
||||
|
||||
getWindowSize :: Integral a => (Configuration -> ResFactor) -> Configuration -> (a,a)
|
||||
getWindowSize :: Integral a => (Config -> ResFactor) -> Config -> (a,a)
|
||||
getWindowSize f cfig = (g _windowX, g _windowY)
|
||||
where
|
||||
g h = fromIntegral $ applyResFactor (f cfig) (h cfig)
|
||||
|
||||
Reference in New Issue
Block a user