results<-Sqlite.querydbConn"SELECT DISTINCT name FROM vouchers INNER JOIN redeemed WHERE vouchers.id != redeemed.voucher_id AND vouchers.name = ?"(Sqlite.Onlyvoucher)::IO[Voucher]
results<-Sqlite.querydbConn"SELECT DISTINCT name FROM vouchers INNER JOIN redeemed WHERE vouchers.id != redeemed.voucher_id AND vouchers.name = ?"(Sqlite.Onlyvoucher)::IO[Voucher]