mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

lift to IO

Browse source
This commit is contained in:
Joey Hess 2010-10-15 19:32:56 -04:00
parent 946a7f3f21
commit e67887d98b
2 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
UUID.hs
View file

@ -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