{-# LANGUAGE TemplateHaskell, PackageImports #-} module HsDev.Database.SQLite.Schema.TH ( schemaExp ) where import System.Directory import "template-haskell" Language.Haskell.TH import "template-haskell" Language.Haskell.TH.Syntax schemaExp :: ExpQ schemaExp :: ExpQ schemaExp = do FilePath schemaFile <- IO FilePath -> Q FilePath forall a. IO a -> Q a runIO (IO FilePath -> Q FilePath) -> IO FilePath -> Q FilePath forall a b. (a -> b) -> a -> b $ FilePath -> IO FilePath canonicalizePath FilePath "data/hsdev.sql" FilePath -> Q () addDependentFile FilePath schemaFile FilePath s <- IO FilePath -> Q FilePath forall a. IO a -> Q a runIO (FilePath -> IO FilePath readFile FilePath "data/hsdev.sql") [e| s |]