lift to IO

1 files changed, 2 insertions, 2 deletions

diff --git a/UUID.hs b/UUID.hs
index 9348c7b43..3653eeec4 100644
--- a/UUID.hs
+++ b/UUID.hs
@@ -91,7 +91,7 @@ reposByUUID repos uuids = do
 
 {- Pretty-prints a list of UUIDs 
  - TODO: use lookup file to really show pretty names. -}
-prettyPrintUUIDs :: [UUID] -> String
+prettyPrintUUIDs :: [UUID] -> Annex String
 prettyPrintUUIDs uuids = 
-	unwords $ map (\u -> "\tUUID "++u++"\n") uuids
+	return $ unwords $ map (\u -> "\tUUID "++u++"\n") uuids