From a4d3d754e8b4fc6bad46f414a7d27228ab60107f Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 26 Apr 2009 12:35:45 -0400 Subject: sql_ufunc and octet_length --- tests/blob.ur | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests/blob.ur') diff --git a/tests/blob.ur b/tests/blob.ur index 82a631b9..4c368a86 100644 --- a/tests/blob.ur +++ b/tests/blob.ur @@ -12,8 +12,8 @@ fun save r = main () and main () = - ls <- queryX (SELECT t.Id, t.Desc, t.Data FROM t ORDER BY t.Desc) - (fn r =>
  • {[r.T.Desc]} ({[blobSize r.T.Data]})
    • ); + ls <- queryX (SELECT t.Id, t.Desc, octet_length(t.Data) AS Len FROM t ORDER BY t.Desc) + (fn r =>
  • {[r.T.Desc]} ({[r.Len]})
    • ); return {ls} -- cgit v1.2.3