diff options
| -rw-r--r-- | src/PhotoStore.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/PhotoStore.hs b/src/PhotoStore.hs index ead129a..c6c043e 100644 --- a/src/PhotoStore.hs +++ b/src/PhotoStore.hs @@ -24,9 +24,7 @@ data Config = Config getDirectoryFiles path = getDirectoryContents path >>= return . filter f where f filename = not (filename `elem` [".", ".."]) -validAlbumName name = - name /= "." - && name /= ".." +validAlbumName name = not ("." `isPrefixOf` name) getAlbums :: Config -> IO [Album] getAlbums config = do |