diff options
-rw-r--r-- | CubeMap.hs | 2 | ||||
-rw-r--r-- | MeshSketch.hs | 1 |
2 files changed, 2 insertions, 1 deletions
@@ -61,7 +61,7 @@ data Skyboxes = Skyboxes | |||
61 | loadSkyboxes :: IO Skyboxes | 61 | loadSkyboxes :: IO Skyboxes |
62 | loadSkyboxes = do | 62 | loadSkyboxes = do |
63 | let dir = "./skyboxes" | 63 | let dir = "./skyboxes" |
64 | zips <- listDirectory dir | 64 | zips <- sort <$> listDirectory dir |
65 | let len = length zips | 65 | let len = length zips |
66 | return Skyboxes | 66 | return Skyboxes |
67 | { skyboxCount = len | 67 | { skyboxCount = len |
diff --git a/MeshSketch.hs b/MeshSketch.hs index 5ada40e..d06e905 100644 --- a/MeshSketch.hs +++ b/MeshSketch.hs | |||
@@ -1,4 +1,5 @@ | |||
1 | {-# LANGUAGE CPP #-} | 1 | {-# LANGUAGE CPP #-} |
2 | {-# LANGUAGE FlexibleContexts #-} | ||
2 | {-# LANGUAGE LambdaCase #-} | 3 | {-# LANGUAGE LambdaCase #-} |
3 | {-# LANGUAGE OverloadedLabels #-} | 4 | {-# LANGUAGE OverloadedLabels #-} |
4 | {-# LANGUAGE OverloadedStrings #-} | 5 | {-# LANGUAGE OverloadedStrings #-} |