From 83bb0c46dae09f4e35d1a1fd244ade6a9be26b16 Mon Sep 17 00:00:00 2001 From: David Himmelstrup Date: Sat, 30 Nov 2019 18:00:37 +0800 Subject: [PATCH] Fix warnings. Former-commit-id: 14b142ace909a1861b6cff2c0bf62e0f34484749 --- examples/blender_sphere.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/examples/blender_sphere.hs b/examples/blender_sphere.hs index 82c0e2c..9b3c313 100644 --- a/examples/blender_sphere.hs +++ b/examples/blender_sphere.hs @@ -5,12 +5,10 @@ module Main (main) where import Data.String.Here +import qualified Data.Text as T import Reanimate import Reanimate.Blender import Reanimate.Raster -import System.FilePath -import qualified Data.Text as T -import qualified Data.Text.IO as T main :: IO () main = reanimate $ mkAnimation 5 $ \t -> @@ -20,6 +18,7 @@ main = reanimate $ mkAnimation 5 $ \t -> , blender (script s) ] +texture :: FilePath texture = svgAsPngFile (mkGroup [ checker 10 10 , withFillColor "red" $