10 lines
180 B
Haskell
10 lines
180 B
Haskell
module Main where
|
|
|
|
import Control.Monad.Trans.State (evalStateT)
|
|
import UI.NCurses (runCurses)
|
|
|
|
import Mtlstats
|
|
|
|
main :: IO ()
|
|
main = runCurses $ initState >>= evalStateT mainLoop
|