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

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

(limited to 'Annex')

diff --git a/Annex/View.hs b/Annex/View.hs
index 09fa348d9..6db31ce92 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
-- 
cgit v1.2.3