Cleanup

src/Dodge/Render.hs

@@ -6,6 +6,7 @@ module Dodge.Render (
 
 --import qualified Data.Vector as V
 
+import Dodge.WindowSize
 import Control.Lens
 import Control.Monad
 import qualified Control.Monad.Parallel as MP
@@ -374,10 +375,5 @@ getDistortions cfig w
 setViewportSize :: Int -> Int -> IO ()
 setViewportSize x y = glViewport 0 0 (fromIntegral x) (fromIntegral y)
 
-getWindowSize :: Integral a => (Configuration -> ResFactor) -> Configuration -> (a,a)
-getWindowSize f cfig = (g _windowX,g _windowY)
-  where
-    g h = fromIntegral $ round (h cfig) `div` resFactorNum (f cfig)
-
 setViewportType :: (Configuration -> ResFactor) -> Configuration -> IO ()
 setViewportType f = uncurry (glViewport 0 0) . getWindowSize f