From 77ee289e1f134be72c331dc9d58610c4209561d2 Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Thu, 15 Aug 2019 14:53:39 -0400 Subject: [PATCH] missing haddock comments --- src/Mtlstats.hs | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/src/Mtlstats.hs b/src/Mtlstats.hs index 9c3ac3e..109cf41 100644 --- a/src/Mtlstats.hs +++ b/src/Mtlstats.hs @@ -1,12 +1,17 @@ module Mtlstats (initState, mainLoop) where import Control.Monad.Trans.State (StateT) -import UI.NCurses (Curses) +import qualified UI.NCurses as C import Mtlstats.Types -initState :: Curses ProgState -initState = return ProgState +-- | Initializes the progran +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 ()