pinosaur
/
ekitaihs.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
started on render
[ekitaihs.git]
/
Ekitai.hs
diff --git
a/Ekitai.hs
b/Ekitai.hs
index
8793052
..
6fe1195
100644
(file)
--- a/
Ekitai.hs
+++ b/
Ekitai.hs
@@
-1,13
+1,21
@@
import System.Environment
import qualified Data.Vector as V
import System.Environment
import qualified Data.Vector as V
+import qualified Brick as B
import Parse
import Sim
import Parse
import Sim
+import Render
+-- ui :: B.Widget ()
+-- ui = B.str "hello" <+> B.str "World"
+
+-- main :: IO ()
main = do
main = do
- argv <- getArgs
- (opts, fname) <- ekitaiOpts argv
- putStrLn fname
- return 0
+ initialState <- buildInitialState
+ endState <- B.defaultMain ekitaiApp initialState
+ print endState
+ -- argv <- getArgs
+ -- (opts, fname) <- ekitaiOpts argv
+ -- return 0