module Main where
import Loop
import Hetris.Base

import Control.Lens
--import Foreign (Word32)
import Control.Monad
--import System.Random
import qualified Data.Map                  as M
import qualified Data.IntMap               as IM
import Graphics.Rendering.OpenGL hiding (color, rotate, scale, translate)
import qualified SDL
import qualified SDL.Mixer                 as Mix

main :: IO ()
main = setupMiniLoop
    (600,600)
    initWorld
    (const $ return ())
    (\w _ -> return w)
    return