From b9959e5a3da72e97f5c51ba07a76e252e1e39f25 Mon Sep 17 00:00:00 2001 From: Kjetil Orbekk Date: Thu, 15 Oct 2015 21:05:14 -0400 Subject: Sort albums. --- src/PhotoStore.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/PhotoStore.hs b/src/PhotoStore.hs index 2894e73..ead129a 100644 --- a/src/PhotoStore.hs +++ b/src/PhotoStore.hs @@ -3,18 +3,18 @@ {-# LANGUAGE LambdaCase #-} module PhotoStore where +import Control.Exception import Control.Exception.Base -import Data +import Control.Monad import Control.Monad.Trans.Class import Control.Monad.Trans.Either +import Data +import Data.List import GHC.Generics +import Prelude import System.Directory import System.FilePath -import Prelude -import Control.Monad -import Control.Exception import System.IO.Error -import Data.List data Config = Config { pendingPath :: String @@ -32,8 +32,8 @@ getAlbums :: Config -> IO [Album] getAlbums config = do pending <- getDirectoryFiles (pendingPath config) permanent <- getDirectoryFiles (photosPath config) - return ([Album name True | name <- pending] ++ - [Album name False | name <- permanent]) + return ([Album name True | name <- sort pending] ++ + [Album name False | name <- sort permanent]) albumDirectory :: Config -> Album -> FilePath albumDirectory config album -- cgit v1.2.3