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/tut_glue_svg.hs
View file

@ -51,7 +51,7 @@ mkBlur = mkGroup
[ 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)
@ -70,7 +70,7 @@ mkBlob =
[ FilterTree $ mkFilter "goo"
[FEGaussianBlur $ defaultSvg
& gaussianBlurStdDeviationX .~ Num dev
& filterResult .~ Just "blur"
& filterResult ?~ "blur"
,FEColorMatrix $ defaultSvg
& colorMatrixType .~ Matrix
& colorMatrixValues .~ "1 0 0 0 0 \
@ -99,4 +99,4 @@ mkBlob =
mkFilter :: String -> [FilterElement] -> Filter
mkFilter ident fe = defaultSvg & filterChildren .~ fe & attrId .~ Just ident
mkFilter ident fe = defaultSvg & filterChildren .~ fe & attrId ?~ ident