Read the obj file as ByteString and pass ByteString to the Parser

CLI/Gif.hs

@@ -2,6 +2,7 @@
 
 module CLI.Gif where
 
+import qualified Data.ByteString.Char8 as B
 import Diagrams.Backend.Cairo.CmdLine
 import Graphics.Diagram.Gif
 import MyPrelude
@@ -9,5 +10,5 @@ import MyPrelude
 
 gifCLI :: FilePath -> IO ()
 gifCLI _ = do
-  mesh <- readFile "UB1_sonderfaelle.obj"
+  mesh <- B.readFile "UB1_sonderfaelle.obj"
   gifMain (gifDiagS def mesh)