faster file loading.

1 files changed, 2 insertions, 1 deletions

diff --git a/LoadMesh.hs b/LoadMesh.hs
index 423630f..32e4f84 100644
--- a/LoadMesh.hs
+++ b/LoadMesh.hs
@@ -5,6 +5,7 @@
 {-# LANGUAGE TupleSections     #-}
 module LoadMesh where
 
+import ByteStringUtil
 import LambdaCube.GL as LC -- renderer
 import LambdaCube.GL.Mesh as LambdaCubeGL
 import LambdaCube.GL.Type as LC
@@ -54,7 +55,7 @@ relativeFrom path file | isAbsolute file = file
 relativeFrom path file = takeDirectory path </> file
 
 loadOBJ :: String -> IO (Either String MeshData)
-loadOBJ fname = L.readFile fname >>= \bs -> do
+loadOBJ fname = readBigFile fname >>= \bs -> do
     let  obj@OBJ{..} = Wavefront.parse bs
     -- load materials
     mtlLib <- if V.null objMtlLibs