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)