{-# 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 |]