diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-02-19 02:32:22 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-19 02:32:22 -0400 |
| commit | b3872e5df8256f25911e0859c474342003b63522 (patch) | |
| tree | 8016794162fe726c09aec6d2bc967fa86bdb886e /Annex/View.hs | |
| parent | 2774874e1d0e84fde2f344edf91520eef5330e8c (diff) | |
decruft
Diffstat (limited to 'Annex/View.hs')
| -rw-r--r-- | Annex/View.hs | 5 |
1 files changed, 0 insertions, 5 deletions
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 |