Fix warnings.

Former-commit-id: 80717c0e5a3da249878effb05d3cd374f99ac538

examples/tut_glue_latex.hs

@@ -9,9 +9,7 @@ import           Control.Lens          ((^.))
 import           Control.Monad
 import           Data.Monoid
 import           Graphics.SvgTree
-import           Linear.V2
 import           Reanimate
-import           Reanimate.Animation
 import           Reanimate.Effect
 import           Reanimate.Scene
 import           System.Random
@@ -82,11 +80,10 @@ drawAnimation' mbSeed fillDur step svg = sceneAnimation $ do
     fork $ do
       wait (n*step+(1-fillDur))
       newSprite $ do
-        return $ \_real_t d t ->
+        return $ \_real_t _d t ->
           withStrokeWidth 0 $ fn $ withFillOpacity (min 1 $ t/fillDur) tree
   where
     shuf lst =
       case mbSeed of
         Nothing -> lst
         Just seed -> shuffle' lst (length lst) (mkStdGen seed)
-    len = fromIntegral $ length $ svgGlyphs svg

examples/tut_glue_physics.hs

@@ -7,7 +7,6 @@ module Main (main) where
 import           Chiphunk.Low
 import           Codec.Picture       (PixelRGBA8 (..))
 import           Control.Monad       (forM_)
-import           Graphics.SvgTree    (Tree)
 import           Linear.V2           (V2 (..))
 import           Reanimate
 import           Reanimate.Chiphunk