Update haddock.

This commit is contained in:
Kei Hibino 2014-07-17 22:32:32 +09:00
parent e15950f760
commit 7df85051e3

View File

@ -62,6 +62,7 @@ newtype RecordToSql q a = RecordToSql (a -> ToSqlM q ())
runRecordToSql :: RecordToSql q a -> a -> ToSqlM q ()
runRecordToSql (RecordToSql f) = f
-- | Finalize 'RecordToSql' record printer.
wrapToSql :: (a -> ToSqlM q ()) -> RecordToSql q a
wrapToSql = RecordToSql