hsdev-0.3.4.0: src/HsDev/Database/SQLite/Schema/TH.hs

{-# 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 = do
	schemaFile <- runIO $ canonicalizePath "data/hsdev.sql"
	addDependentFile schemaFile
	s <- runIO (readFile "data/hsdev.sql")
	[e| s |]