From 1fe6cd3c0d87db55d076eaa87c513bbda1584183 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 19 Feb 2014 02:32:22 -0400
Subject: [PATCH] decruft

---
 Annex/View.hs | 5 -----
 1 file changed, 5 deletions(-)

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