Cleanup

src/Dodge/Render.hs

@@ -432,10 +432,10 @@ doDrawing' win pdata u = do
     renderLayer FixedCoordLayer shadV pokeCounts
     SDL.glSwapWindow win
 
-getDistortions :: Configuration -> World -> [Distortion]
+getDistortions :: Config -> World -> [Distortion]
 getDistortions cfig w
     | cfig ^. graphics_distortions = w ^. cWorld . lWorld . distortions
     | otherwise = []
 
-setViewport :: (Configuration -> ResFactor) -> Configuration -> IO ()
+setViewport :: (Config -> ResFactor) -> Config -> IO ()
 setViewport f = uncurry (glViewport 0 0) . getWindowSize f