1 structure PassGen
:> PASSGEN
= struct
7 val db
= C
.conn Config
.passgenDbstring
9 (case C
.oneOrNoRows
db ($`SELECT pass FROM Pass WHERE id
= ^
(C
.intToSql id
)`
) of
11 | SOME
[pass
] => SOME (C
.stringFromSql pass
)
12 | _
=> raise Fail
"Bad \"SELECT pass\" row")