add a UUID type

Should have done this a long time ago.

1 files changed, 1 insertions, 1 deletions

diff --git a/test.hs b/test.hs
index d466d3ad3..d4c1366d0 100644
--- a/test.hs
+++ b/test.hs
@@ -614,7 +614,7 @@ checklocationlog f expected = do
 	case r of
 		Just (k, _) -> do
 			uuids <- annexeval $ Logs.Location.keyLocations k
-			assertEqual ("bad content in location log for " ++ f ++ " key " ++ (show k) ++ " uuid " ++ thisuuid)
+			assertEqual ("bad content in location log for " ++ f ++ " key " ++ (show k) ++ " uuid " ++ show thisuuid)
 				expected (thisuuid `elem` uuids)
 		_ -> assertFailure $ f ++ " failed to look up key"