diff options
author | Kjetil Orbekk <kjetil.orbekk@gmail.com> | 2015-10-19 21:48:56 -0400 |
---|---|---|
committer | Kjetil Orbekk <kjetil.orbekk@gmail.com> | 2015-10-19 21:48:56 -0400 |
commit | bb8458255dac88bc47bbf04f0d437ecb6ea83594 (patch) | |
tree | d440d3b0857f8881df203fe1719d0d88fd26b157 | |
parent | fe66e49de53b5820eccfcc0f2801b96cee34a9f7 (diff) |
Sort photos in descending order.
-rw-r--r-- | src/PhotoStore.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/PhotoStore.hs b/src/PhotoStore.hs index 62d7244..567c22e 100644 --- a/src/PhotoStore.hs +++ b/src/PhotoStore.hs @@ -30,8 +30,9 @@ getAlbums :: Config -> IO [Album] getAlbums config = do pending <- getDirectoryFiles (pendingPath config) permanent <- getDirectoryFiles (photosPath config) - return ([Album name True | name <- sort pending, validAlbumName name] ++ - [Album name False | name <- sort permanent, validAlbumName name]) + return ([Album name True | name <- sort' pending, validAlbumName name] ++ + [Album name False | name <- sort' permanent, validAlbumName name]) + where sort' = reverse . sort albumDirectory :: Config -> Album -> FilePath albumDirectory config album |