From 7cad9f6b02e2f71803047235622b9157ff988e75 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Wed, 31 Jul 2019 11:24:27 -0400
Subject: faster file loading.

---
 CubeMap.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'CubeMap.hs')

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
-- 
cgit v1.2.3