diff options
Diffstat (limited to 'CubeMap.hs')
-rw-r--r-- | CubeMap.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -4,6 +4,7 @@ module CubeMap | |||
4 | , cubeMesh | 4 | , cubeMesh |
5 | ) where | 5 | ) where |
6 | 6 | ||
7 | import ByteStringUtil | ||
7 | import LambdaCube.GL as LC | 8 | import LambdaCube.GL as LC |
8 | import LambdaCube.GL.Data (uploadCubeMapToGPU) | 9 | import LambdaCube.GL.Data (uploadCubeMapToGPU) |
9 | import LambdaCube.GL.Mesh as LC | 10 | import 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 |