Find our JIT'ed function and run it
[kaleidoscope-hs.git] / Main.hs
1 import AST
2 import System.IO
3 import Text.Read
4 main = do
5   hPutStr stderr "ready> "
6   ast <- (readMaybe <$> getLine) :: IO (Maybe AST)
7   case ast of
8     Just x -> hPrint stderr x
9     Nothing ->  hPutStrLn stderr "Couldn't parse"
10   main