diff --git a/Annex/View.hs b/Annex/View.hs
index 09fa348d91..6db31ce926 100644
--- a/Annex/View.hs
+++ b/Annex/View.hs
@@ -207,11 +207,6 @@ matchGlob regex val =
 	isJust $ matchRegex regex val
 #endif
 
-nonEmptyList :: S.Set a -> Maybe [a]
-nonEmptyList s
-	| S.null s = Nothing
-	| otherwise = Just $ S.toList s
-
 toViewPath :: MetaValue -> FilePath
 toViewPath = concatMap escapeslash . fromMetaValue
   where