1 files changed, 2 insertions, 3 deletions

diff --git a/test/TestSabadie.hs b/test/TestSabadie.hs
index de13678..d8d1949 100644
--- a/test/TestSabadie.hs
+++ b/test/TestSabadie.hs
@@ -3,6 +3,7 @@ module TestSabadie where
 import Codec.Wavefront
 import System.Directory
 import System.IO
+import Text.Show.Pretty (ppShow)
 
 getDataDir :: IO FilePath
 getDataDir = do
@@ -14,6 +15,4 @@ getDataDir = do
 main = do
     ddir <- getDataDir
     r1 <- fromFile (ddir ++ "/01.obj")
-    print r1
-    -- Failed: `    vp    ` [...]: Failed reading: empty
-    -- Reason: blank lines
+    either print (putStrLn . ppShow) r1