Implement level portal

src/Dodge/Render.hs

@@ -6,28 +6,23 @@ module Dodge.Render
   where
 import Dodge.Data
 import Dodge.Base
-
 import Dodge.Render.HUD
 import Dodge.Render.MenuScreen
 import Dodge.Render.Picture
 import Dodge.Render.PerspectiveMatrix
-
 import Geometry
 import Picture
-import Shader
-
 import Picture.Render
 import Picture.Preload
+import Shader
 
 import Data.Graph.Inductive.Query.DFS
 import Data.Graph.Inductive.Graph
-
 import Control.Monad.State
 import Data.List
 import Data.Bifunctor
-
-import Foreign (Word32)
 import Data.Function
+import Foreign (Word32)
 import Control.Applicative
 import Control.Lens
 import Data.Maybe
@@ -35,7 +30,6 @@ import qualified Data.IntMap.Strict as IM
 import qualified Data.Map as M
 import qualified Data.Set as S
 import Graphics.Rendering.OpenGL hiding (color,scale,translate,rotate)
-
 import qualified SDL
 
 doDrawing :: RenderData -> World -> IO (Word32)