expose getTestCorpusDir, though I'm not sure it works under Bazel

Author: Patrick Thomson

semantic-ast/app/Main.hs

@@ -109,7 +109,7 @@ main = do
 {-# LANGUAGE UndecidableInstances #-}
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 
-module Language.$language.AST (module Language.$language.AST) where
+module Language.$language.AST (module Language.$language.AST, getTestCorpusDir) where
 
 import qualified AST.Parse
 import qualified AST.Token
@@ -127,6 +127,8 @@ import qualified GHC.Show
 import qualified Prelude as GHC.Classes
 import qualified TreeSitter.Node
 
+import TreeSitter.$language (getTestCorpusDir)
+
 debugSymbolNames :: [GHC.Base.String]
 debugSymbolNames = debugSymbolNames_0