Added graphical OpenGL mode

.gitignore

@@ -5,3 +5,4 @@ cabal-dev
 *.chi
 *.chs.h
 *~
+*.swp

Game.hs

@@ -4,6 +4,9 @@ import           System.Environment (getArgs)
 import           System.IO
 
 import           LLifter.PlayGame
+import           LLifter.OpenGL
 
 main :: IO ()
-main = hSetBuffering stdin NoBuffering >> getArgs >>= runGame . head
+main = do
+    getArgs >>= (return . head) >>= openGLmain
+    hSetBuffering stdin NoBuffering >> getArgs >>= runGame . head

LLifter/Parser.hs

@@ -1,4 +1,4 @@
-module LLifter.Parser (parser) where
+module LLifter.Parser (parser, parserIO) where
 
 import           Control.Monad.State
 import           Data.Array.IO
@@ -11,7 +11,7 @@ import           LLifter.Internal
 
 -- ---------------------------
 -- The parser itself
-parser :: String -> Game ()
+parser :: String -> Game GameState
 parser file = do
     contents <- liftIO $ liftM BSC.lines $ BSC.readFile file
     let ((size_x,size_y), fld, tramp_assoc, grth, rzr) =
@@ -21,6 +21,11 @@ parser file = do
     put $ initGS tbl (size_x,size_y) fld grth rzr
     (tramp_map, target_map) <- fillMap size_y ([], []) contents tbl
     putTramps $ createTramps tramp_map target_map tramp_assoc
+    get >>= return
+
+parserIO :: String -> IO GameState
+parserIO file = do
+    evalStateT (parser file) undefined
 
 fillMap :: Int -> (TrampMap, TargetMap) -> [BS.ByteString]
         -> Table -> Game (TrampMap, TargetMap)

lambda-lifting.cabal

@@ -16,5 +16,10 @@ Executable Game
                    transformers >= 0.3,
                    mtl >= 2.1,
                    bytestring >= 0.9,
-                   monad-loops >= 0.3
+                   monad-loops >= 0.3,
+                   StateVar >= 1.0,
+                   OpenGL >= 2.2,
+                   GLUT >= 2.1,
+                   graphics-drawingcombinators >= 1.1
   ghc-options:     -Wall -O2
+  extensions:      ScopedTypeVariables