always include builtins path

1 files changed, 4 insertions, 8 deletions

diff --git a/tool/Compiler.hs b/tool/Compiler.hs
index 0723c0c8..215cf106 100644
--- a/tool/Compiler.hs
+++ b/tool/Compiler.hs
@@ -4,27 +4,23 @@ import Data.Aeson
 import qualified Data.ByteString.Lazy as B
 import System.FilePath
 
-import Paths_lambdacube_compiler (getDataDir)
 import LambdaCube.Compiler
 
 data Config
   = Config
   { srcName :: String
   , backend :: Backend
-  , sourceDir :: FilePath
+  , includePaths :: [FilePath]
   }
 
 sample :: Parser Config
 sample = Config
   <$> argument str (metavar "SOURCE_FILE")
   <*> flag OpenGL33 WebGL1 (long "webgl" <> help "generate WebGL 1.0 pipeline" )
-  <*> pure "/lc"
+  <*> pure ["."]
 
 main :: IO ()
-main = do
-  cabalDataDir <- getDataDir
-  cfg <- execParser opts
-  compile (cfg {sourceDir = cabalDataDir </> "lc"})
+main = compile =<< execParser opts
   where
     opts = info (helper <*> sample)
       ( fullDesc
@@ -36,7 +32,7 @@ compile Config{..} = do
   let dropExt n | takeExtension n == ".lc"  = dropExtension n
       dropExt n = n
       baseName = dropExt srcName
-  pplRes <- compileMain [".", sourceDir] backend baseName
+  pplRes <- compileMain includePaths backend baseName
   case pplRes of
     Left err -> putStrLn err
     Right ppl -> B.writeFile (baseName <> ".json") $ encode ppl