[bpt/mlt.git] / src / lib / sql.sml

structure Sql :> SQL =
struct
    val $ = String.concat o (List.map (fn SMLofNJ.QUOTE s => s | SMLofNJ.ANTIQUOTE s => s))
end
Commit	Line	Data
90027884 AC	1	structure Sql :> SQL =
	2	struct
	3	val $ = String.concat o (List.map (fn SMLofNJ.QUOTE s => s \| SMLofNJ.ANTIQUOTE s => s))
	4	end