Some minor modifications

Author: vijayphoenix

README.md

@@ -10,14 +10,11 @@ On Linux
 
 ### Documentation  
 
-This project is documented under [DOXYGEN](http://www.doxygen.nl/)  Documentation  
+This project is documented under [Haddock](https://www.haskell.org/haddock/#Documentation) Documentation  
 
 ### Authors  
 
-* [**Vijay Tadikamalla**](https://github.com/vijayphoenix)  
-* [**Anjani Kumar**](https://github.com/anjani-1)  
-* [**Anupam Saini**](https://github.com/anupamsaini98)  
-* [**Yogesh Singh**](https://github.com/yo5sh)  
+* [**Vijay Tadikamalla**](https://github.com/vijayphoenix)
 
 #### License  
 

app/Main.hs

@@ -1,11 +1,49 @@
 module Main where
 
+
+import System.Console.Haskeline 
+import Control.Monad.Except
+
+import qualified LLVM.AST as AST
+import Parser
 import Lexer
 
+firstModule :: AST.Module
+firstModule = AST.defaultModule { AST.moduleName = "First Module" }
+
 main :: IO ()
-main = do
-    str <- getLine
-    putStrLn ("Input:" ++ str)
-    print $ parse ident "File1" str
-    main 
-    -- print $ parse ident "File1" str
+main = repl
+
+eval :: AST.Module -> String -> IO (Maybe AST.Module)
+eval mod source = do
+  let res  = (parse moduleParser "Term" source)
+  case res of 
+    Left err -> print err >> return Nothing
+    Right ex -> do 
+      print ex
+      return $ Just mod
+
+repl :: IO ()
+repl = runInputT defaultSettings (loop firstModule)
+  where 
+  loop mod = do 
+    inputCode <- getInputLine "Haskull> "
+    case inputCode of 
+      Nothing -> outputStrLn "Exiting Haskull."
+      Just input -> do
+        wrappedMod <- liftIO $ eval mod input
+        case wrappedMod of 
+            Just modn -> loop modn
+            Nothing   -> loop mod
+      -- Just input -> do
+      --   let tree = (parse commandParser "Term" input) in 
+      --     loop mod
+        -- case (parse commandParser "sdf" inputCode) of 
+        --   Left mess -> outputStrLn mess
+        --   Right out -> outputStrLn out
+        -- outputStrLn (parse commandParser "sdf" inputCode)
+        -- repl
+
+liftError :: ExceptT String IO a -> IO a
+liftError = runExceptT >=> either fail return
+