compiler: stabilise item order in index

By sorting directory items alphabetically.

GitHub: closes #119

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
 
 
 import Control.Monad (mapM)
-import Data.List (isPrefixOf, length, subsequences)
+import Data.List (isPrefixOf, length, subsequences, sortOn)
 import Data.Function ((&))
 import Data.Text (pack)
 import Data.Aeson (ToJSON)
@@ -154,6 +154,7 @@ readDirectory root = mkNode (Path []) >>= return . AnchoredFSNode root
     mkDirNode path canonicalPath =
       (listDirectory $ localPath (root /> path))
       >>= mapM (mkNode . ((</) path))
+      >>= return . sortOn nodeName
       >>= return . Dir path canonicalPath
 
 copyTo :: FilePath -> AnchoredFSNode -> IO ()