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

decruft

Browse source
This commit is contained in:
Joey Hess 2014-02-19 02:32:22 -04:00
parent fb266e2da6
commit 1fe6cd3c0d
1 changed files with 0 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Annex/View.hs
View file

@ -207,11 +207,6 @@ matchGlob regex val =
isJust $ matchRegex regex val isJust $ matchRegex regex val
#endif #endif
nonEmptyList :: S.Set a -> Maybe [a]
nonEmptyList s
| S.null s = Nothing
| otherwise = Just $ S.toList s
toViewPath :: MetaValue -> FilePath toViewPath :: MetaValue -> FilePath
toViewPath = concatMap escapeslash . fromMetaValue toViewPath = concatMap escapeslash . fromMetaValue
where where