missing type signatures & alignment

1 files changed, 1 insertions, 0 deletions

diff --git a/Main.hs b/Main.hs
index b951231..9b33887 100644
--- a/Main.hs
+++ b/Main.hs
@@ -190,6 +190,7 @@ processCommand st = case st^.stScanSess of
 presentUI    :: St -> IO ()
 presentUI st = runTheApp st >>= processCommand
 
+main :: IO ()
 main = makeInitialState >>= presentUI
 
 -- | Create a process, wait for it to finish, don't close any