Removed complicated validation, Basic Expression parsing

src/Ubc/Parse.hs

@@ -1,6 +1,15 @@
 module Ubc.Parse
-( someFunc )
+( parseScript )
 where
 
-someFunc :: IO ()
-someFunc = putStrLn "help"
+import Text.Parsec ( runPT, ParseError, SourceName, ParsecT )
+
+
+import qualified Ubc.Parse.ParserState as ParserState
+import qualified Ubc.Parse.Config as Config
+
+parseScript :: Monad m => SourceName -> String -> m (Either ParseError ())
+parseScript = runPT topLevelParser (ParserState.initialState Config.defaultConfig)
+
+topLevelParser :: ParsecT s u m ()
+topLevelParser = return ()