faster file loading.

1 files changed, 2 insertions, 1 deletions

diff --git a/CubeMap.hs b/CubeMap.hs
index e71892a..864bb57 100644
--- a/CubeMap.hs
+++ b/CubeMap.hs
@@ -4,6 +4,7 @@ module CubeMap
     , cubeMesh
     ) where
 
+import ByteStringUtil
 import LambdaCube.GL as LC
 import LambdaCube.GL.Data (uploadCubeMapToGPU)
 import LambdaCube.GL.Mesh as LC
@@ -70,7 +71,7 @@ loadSkyboxes = do
         , skyboxLoad  = \n -> do
                 let fn = zips !! mod n len
                 putStrLn $ "Loading skybox " ++ show n ++ ": " ++ fn ++ "..."
-                archive <- toArchive <$> Lazy.readFile (dir </> fn)
+                archive <- toArchive <$> readBigFile (dir </> fn)
                 let es = mapMaybe (`findEntryByPath` archive) $ filterImageNames (filesInArchive archive)
                 imgs <- fmap sequence $ forM es $ \entry -> do
                     return $ Juicy.decodeImage $ Lazy.toStrict $ fromEntry entry