fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

missing haddock comments

This commit is contained in:
Jonathan Lamothe 2019-08-15 14:53:39 -04:00
parent 44f596102e
commit 77ee289e1f
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/Mtlstats.hs
View File

@ -1,12 +1,17 @@
module Mtlstats (initState, mainLoop) where module Mtlstats (initState, mainLoop) where
import Control.Monad.Trans.State (StateT) import Control.Monad.Trans.State (StateT)
import UI.NCurses (Curses) import qualified UI.NCurses as C
import Mtlstats.Types import Mtlstats.Types
initState :: Curses ProgState -- | Initializes the progran
initState = return ProgState initState :: C.Curses ProgState
initState = do
w <- C.defaultWindow
C.updateWindow w C.clear
return ProgState
mainLoop :: StateT ProgState Curses () -- | Main program loop
mainLoop :: StateT ProgState C.Curses ()
mainLoop = return () mainLoop = return ()