Handle returns (this segfaults llvm-general...)

1 files changed, 3 insertions, 0 deletions

diff --git a/main.hs b/main.hs
index ec5b050..3f3a81b 100644
--- a/main.hs
+++ b/main.hs
@@ -53,8 +53,11 @@ main = do
     -- putStrLn "Module:"
     -- print llvmMod
 
+    putStrLn "Calling withContext:"
     General.withContext $ \context -> do
+        putStrLn "Calling withModuleFromAST:"
         assert $ General.withModuleFromAST context llvmMod $ \genmod -> do
+            putStrLn "Calling moduleLLVMAssembly:"
             llvmasm <- General.moduleLLVMAssembly genmod
             putStr llvmasm
             putStrLn ""