Sort skyboxes.

2 files changed, 2 insertions, 1 deletions

diff --git a/CubeMap.hs b/CubeMap.hs
index cfa6b0d..73fb1a9 100644
--- a/CubeMap.hs
+++ b/CubeMap.hs
@@ -61,7 +61,7 @@ data Skyboxes = Skyboxes
 loadSkyboxes :: IO Skyboxes
 loadSkyboxes = do
     let dir = "./skyboxes"
-    zips <- listDirectory dir
+    zips <- sort <$> listDirectory dir
     let len = length zips
     return Skyboxes
         { skyboxCount = len
diff --git a/MeshSketch.hs b/MeshSketch.hs
index 5ada40e..d06e905 100644
--- a/MeshSketch.hs
+++ b/MeshSketch.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE CPP               #-}
+{-# LANGUAGE FlexibleContexts  #-}
 {-# LANGUAGE LambdaCase        #-}
 {-# LANGUAGE OverloadedLabels  #-}
 {-# LANGUAGE OverloadedStrings #-}