From 5a1116c6a366dc90feb912e709b49a6a7c71c30d Mon Sep 17 00:00:00 2001
From: Sam Tay <sam.chong.tay@gmail.com>
Date: Thu, 15 Jun 2017 23:39:07 -0400
Subject: [PATCH] Stub out some of the interface

---
 app/Main.hs  | 38 +++++++++++++++++++++++++++++++++++++-
 tetris.cabal |  2 ++
 2 files changed, 39 insertions(+), 1 deletion(-)

diff --git a/app/Main.hs b/app/Main.hs
index c775371..b6c401e 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -1,6 +1,42 @@
 module Main where
 
+import Control.Concurrent (threadDelay, forkIO)
+import Control.Monad (void, forever)
+
 import Tetris
 
+import Brick
+import Brick.BChan
+import qualified Graphics.Vty as V
+
+-- | Ticks mark passing of time
+data Tick = Tick
+
+-- | Named resources
+type Name = ()
+
+app :: App Game Tick Name
+app = undefined
+
 main :: IO ()
-main = undefined
+main = pickLevel >>= playGame
+
+pickLevel :: IO Int
+pickLevel = undefined
+
+playGame :: Int -> IO ()
+playGame lvl = do
+  let delay = levelToDelay lvl
+  chan <- newBChan 10
+  forkIO $ forever $ do
+    writeBChan chan Tick
+    threadDelay delay
+  initialGame <- initGame lvl
+  customMain (V.mkVty V.defaultConfig) (Just chan) app initialGame >>= handleEndGame
+
+levelToDelay :: Int -> Int
+levelToDelay = undefined
+
+-- | TODO possibly save high score (with 3 initials? kick it real old school?) to ~/.tetris
+handleEndGame :: Game -> IO ()
+handleEndGame = const $ return ()
diff --git a/tetris.cabal b/tetris.cabal
index dbba85b..2ec27bd 100644
--- a/tetris.cabal
+++ b/tetris.cabal
@@ -29,7 +29,9 @@ executable tetris
   main-is:             Main.hs
   ghc-options:         -threaded -rtsopts -with-rtsopts=-N
   build-depends:       base
+                     , microlens
                      , tetris
+                     , vty >= 5.15
   default-language:    Haskell2010
 
 test-suite tetris-test