1 files changed, 6 insertions, 3 deletions

diff --git a/CubeMap.hs b/CubeMap.hs
index 73fb1a9..e71892a 100644
--- a/CubeMap.hs
+++ b/CubeMap.hs
@@ -8,6 +8,7 @@ import LambdaCube.GL as LC
 import LambdaCube.GL.Data (uploadCubeMapToGPU)
 import LambdaCube.GL.Mesh as LC
 
+import Control.DeepSeq
 import Codec.Archive.Zip
 import Codec.Picture as Juicy
 import Control.Monad
@@ -68,16 +69,18 @@ loadSkyboxes = do
         , skyboxNames = zips
         , skyboxLoad  = \n -> do
                 let fn = zips !! mod n len
+                putStrLn $ "Loading skybox " ++ show n ++ ": " ++ fn ++ "..."
                 archive <- toArchive <$> Lazy.readFile (dir </> fn)
                 let es = mapMaybe (`findEntryByPath` archive) $ filterImageNames (filesInArchive archive)
-                imgs <- forM es $ \entry -> do
+                imgs <- fmap sequence $ forM es $ \entry -> do
                     return $ Juicy.decodeImage $ Lazy.toStrict $ fromEntry entry
-                return $ sequence imgs
+                deepseq imgs $ putStrLn $ "Finished loading skybox " ++ show n ++ ": " ++ fn ++ "."
+                return 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"
+            , "Download one of the .zip archive at http://www.humus.name/index.php?page=Textures&start=0"
             , "and save it into the ./skyboxes directory."
             ]
         return Skyboxes