Cope with missing skybox.

1 files changed, 14 insertions, 0 deletions

diff --git a/CubeMap.hs b/CubeMap.hs
index 10ba9e0..cfa6b0d 100644
--- a/CubeMap.hs
+++ b/CubeMap.hs
@@ -18,6 +18,8 @@ import Data.Maybe
 import qualified Data.Vector as V
 import System.Directory
 import System.FilePath
+import System.IO
+import System.IO.Error
 
 image_names_xyz_dir :: [String]
 image_names_xyz_dir =
@@ -72,6 +74,18 @@ loadSkyboxes = do
                     return $ Juicy.decodeImage $ Lazy.toStrict $ fromEntry entry
                 return $ sequence imgs
         }
+    `catchIOError` \e -> do
+        hPutStrLn stderr $ unlines
+            [ "Unable to load skybox."
+            , "Download a .zip archive from http://www.humus.name/index.php?page=Textures&start=0"
+            , "and save it into the ./skyboxes directory."
+            ]
+        return Skyboxes
+            { skyboxCount = 1
+            , skyboxNames = ["(null)"]
+            , skyboxLoad  = \_ -> do
+                    return $ Left (show e)
+            }
 
 cubeMesh :: Mesh
 cubeMesh = Mesh