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

{-# LANGUAGE TemplateHaskell #-}

module HsDev.Database.SQLite.Schema.TH (
	schemaExp
	) where

import System.Directory
import Language.Haskell.TH
import Language.Haskell.TH.Syntax

schemaExp :: ExpQ
schemaExp = do
	schemaFile <- runIO $ canonicalizePath "data/hsdev.sql"
	addDependentFile schemaFile
	s <- runIO (readFile "data/hsdev.sql")
	[e| s |]