From 13bc8afef6ceb8ebdb73a0a4a65156dce2e206cd Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Tue, 24 Nov 2015 13:53:42 -0500 Subject: [PATCH] In fact, free the document first. --- app/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app/Main.hs b/app/Main.hs index b3ede4ce7..432a51670 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -44,8 +44,8 @@ main = do source <- newCString "" ts_document_set_input_string document source ts_document_parse document - free source ts_document_free document + free source putStrLn $ "cSizeOf " ++ show (cSizeOf document) parseModuleFile :: FilePath -> IO (ParseResult HsModule)