aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorOzoneGrif2020-02-14 06:30:50 +0100
committerGitHub2020-02-14 06:30:50 +0100
commit7b1b84e3e56a6de69ba2bb952a284c617a4b102e (patch)
treeaf3ee8ef89478e7d11cecdf1d7a6efeb1ab540a5
parent8d152ccf3cc939a7141654b09de4b9c379def9d5 (diff)
parent7a8bad610472a0197f990dd5f28829f73fc0346e (diff)
downloadldgallery-7b1b84e3e56a6de69ba2bb952a284c617a4b102e.tar.gz
Merge pull request #127 from pacien/compiler-ordered-index
compiler: stabilise item order in index
-rw-r--r--compiler/src/Files.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/src/Files.hs b/compiler/src/Files.hs
index 8ea943f..8a53b84 100644
--- a/compiler/src/Files.hs
+++ b/compiler/src/Files.hs
@@ -29,7 +29,7 @@ module Files
29 29
30 30
31import Control.Monad (mapM) 31import Control.Monad (mapM)
32import Data.List (isPrefixOf, length, subsequences) 32import Data.List (isPrefixOf, length, subsequences, sortOn)
33import Data.Function ((&)) 33import Data.Function ((&))
34import Data.Text (pack) 34import Data.Text (pack)
35import Data.Aeson (ToJSON) 35import Data.Aeson (ToJSON)
@@ -154,6 +154,7 @@ readDirectory root = mkNode (Path []) >>= return . AnchoredFSNode root
154 mkDirNode path canonicalPath = 154 mkDirNode path canonicalPath =
155 (listDirectory $ localPath (root /> path)) 155 (listDirectory $ localPath (root /> path))
156 >>= mapM (mkNode . ((</) path)) 156 >>= mapM (mkNode . ((</) path))
157 >>= return . sortOn nodeName
157 >>= return . Dir path canonicalPath 158 >>= return . Dir path canonicalPath
158 159
159copyTo :: FilePath -> AnchoredFSNode -> IO () 160copyTo :: FilePath -> AnchoredFSNode -> IO ()