module Data.WavefrontObj (
WavefrontVertex(..)
, WavefrontFace'(..), WavefrontFace
, WavefrontModel'(..), WavefrontModel
, parseWavefrontObj, loadWavefrontObj
) where
import qualified Data.Text as T
import qualified Data.Text.IO as T
import Data.WavefrontObj.Parsers
import Data.WavefrontObj.Types
parseWavefrontObj :: T.Text -> (Either String WavefrontModel)
parseWavefrontObj = runWavefrontParser objFileParser
loadWavefrontObj :: FilePath -> IO (Either String WavefrontModel)
loadWavefrontObj = fmap parseWavefrontObj . T.readFile