summaryrefslogtreecommitdiff
path: root/CubeMap.hs
diff options
context:
space:
mode:
Diffstat (limited to 'CubeMap.hs')
-rw-r--r--CubeMap.hs3
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
4 , cubeMesh 4 , cubeMesh
5 ) where 5 ) where
6 6
7import ByteStringUtil
7import LambdaCube.GL as LC 8import LambdaCube.GL as LC
8import LambdaCube.GL.Data (uploadCubeMapToGPU) 9import LambdaCube.GL.Data (uploadCubeMapToGPU)
9import LambdaCube.GL.Mesh as LC 10import LambdaCube.GL.Mesh as LC
@@ -70,7 +71,7 @@ loadSkyboxes = do
70 , skyboxLoad = \n -> do 71 , skyboxLoad = \n -> do
71 let fn = zips !! mod n len 72 let fn = zips !! mod n len
72 putStrLn $ "Loading skybox " ++ show n ++ ": " ++ fn ++ "..." 73 putStrLn $ "Loading skybox " ++ show n ++ ": " ++ fn ++ "..."
73 archive <- toArchive <$> Lazy.readFile (dir </> fn) 74 archive <- toArchive <$> readBigFile (dir </> fn)
74 let es = mapMaybe (`findEntryByPath` archive) $ filterImageNames (filesInArchive archive) 75 let es = mapMaybe (`findEntryByPath` archive) $ filterImageNames (filesInArchive archive)
75 imgs <- fmap sequence $ forM es $ \entry -> do 76 imgs <- fmap sequence $ forM es $ \entry -> do
76 return $ Juicy.decodeImage $ Lazy.toStrict $ fromEntry entry 77 return $ Juicy.decodeImage $ Lazy.toStrict $ fromEntry entry