ncurses framework

src/Lib.hs

@@ -1,6 +0,0 @@
-module Lib
-    ( someFunc
-    ) where
-
-someFunc :: IO ()
-someFunc = putStrLn "someFunc"

src/Mtlstats.hs

@@ -0,0 +1,12 @@
+module Mtlstats (initState, mainLoop) where
+
+import Control.Monad.Trans.State (StateT)
+import UI.NCurses (Curses)
+
+import Mtlstats.Types
+
+initState :: Curses ProgState
+initState = return ProgState
+
+mainLoop :: StateT ProgState Curses ()
+mainLoop = return ()

src/Mtlstats/Types.hs

@@ -2,6 +2,7 @@
 
 module Mtlstats.Types (
   -- * Types
+  ProgState (..),
   Player (..),
   PlayerStats (..),
   Goalie (..),
@@ -54,6 +55,9 @@ import Data.Aeson
 import Lens.Micro ((^.))
 import Lens.Micro.TH (makeLenses)
 
+-- | Represents the program state
+data ProgState = ProgState
+
 -- | Represents a (non-goalie) player
 data Player = Player
   { _pNumber   :: Int