Fix warnings.

Former-commit-id: 14b142ace909a1861b6cff2c0bf62e0f34484749
This commit is contained in:
David Himmelstrup 2019-11-30 18:00:37 +08:00
commit 83bb0c46da

View file

@ -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" $