hashirama/reanimate
Watch
1
0
Fork
You've already forked reanimate
 0
mirror of https://github.com/reanimate/reanimate.git synced 2026-09-18 03:12:40 +00:00
Code Issues Projects Releases Wiki Activity

Fix some hlint warnings

Browse source 
Former-commit-id: e9b81a8bc0b0c99abe57644e8806c437759ca687
This commit is contained in:
Jan Hrček 2019-12-10 18:22:37 +01:00 • committed by David Himmelstrup
commit 3d20cf49ef
19 changed files with 25 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

6
examples/goo.hs
View file

@ -16,7 +16,7 @@ main = reanimate $ playThenReverseA $ mkAnimation 5 $ \t ->
, FilterTree $ mkFilter "blur"
[FEGaussianBlur $ defaultSvg
& gaussianBlurStdDeviationX .~ Num dev
& filterResult .~ Just "blur"
& filterResult ?~ "blur"
] & filterWidth .~ pure (Percent 3)
& filterX .~ pure (Percent (-1))
& filterHeight .~ pure (Percent 3)
@ -24,7 +24,7 @@ main = reanimate $ playThenReverseA $ mkAnimation 5 $ \t ->
, FilterTree $ mkFilter "goo"
[FEGaussianBlur $ defaultSvg
& gaussianBlurStdDeviationX .~ Num dev
& filterResult .~ Just "blur"
& filterResult ?~ "blur"
,FEColorMatrix $ defaultSvg
& colorMatrixType .~ Matrix
& colorMatrixValues .~ "1 0 0 0 0 \
@ -60,4 +60,4 @@ main = reanimate $ playThenReverseA $ mkAnimation 5 $ \t ->
circ = mkCircle radius
mkFilter :: String -> [FilterElement] -> Filter
mkFilter ident fe = defaultSvg & filterChildren .~ fe & attrId .~ Just ident
mkFilter ident fe = defaultSvg & filterChildren .~ fe & attrId ?~ ident