diff options
Diffstat (limited to 'LoadMesh.hs')
| -rw-r--r-- | LoadMesh.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/LoadMesh.hs b/LoadMesh.hs index d8ce42b..aaf0e06 100644 --- a/LoadMesh.hs +++ b/LoadMesh.hs | |||
| @@ -48,7 +48,7 @@ relativeFrom path file = takeDirectory path </> file | |||
| 48 | 48 | ||
| 49 | loadOBJ :: String -> IO (Either String MeshData) | 49 | loadOBJ :: String -> IO (Either String MeshData) |
| 50 | loadOBJ fname = L.readFile fname >>= \bs -> do | 50 | loadOBJ fname = L.readFile fname >>= \bs -> do |
| 51 | let obj@OBJ{..} = parse bs | 51 | let obj@OBJ{..} = Wavefront.parse bs |
| 52 | -- load materials | 52 | -- load materials |
| 53 | mtlLib <- mapM (readMtlWithFallback . relativeFrom fname . unpack) objMtlLibs | 53 | mtlLib <- mapM (readMtlWithFallback . relativeFrom fname . unpack) objMtlLibs |
| 54 | return $ Right (objToMesh obj,(mtlLib,fname)) | 54 | return $ Right (objToMesh obj,(mtlLib,fname)) |