mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-11 16:12:20 +00:00
Fix some hlint warnings, and more consistency in examples (#167)
* Remove redundant brackets * Various hlint fixes * Remove unused language pragrams and other fixes * Use addStatic more consistently in examples * Rename remaining usages of sceneAnimation to scene
This commit is contained in:
parent
37aa90378e
commit
0aca2333e2
63 changed files with 240 additions and 275 deletions
|
|
@ -23,7 +23,7 @@ import System.IO.Unsafe
|
|||
|
||||
|
||||
main :: IO ()
|
||||
main = reanimate $ sceneAnimation $ do
|
||||
main = reanimate $ scene $ do
|
||||
-- Set the background to 'rtfdBackgroundColor'
|
||||
newSpriteSVG_ $ mkBackgroundPixel rtfdBackgroundColor
|
||||
|
||||
|
|
@ -107,11 +107,11 @@ longitudeLines p =
|
|||
, let lam = fromToS (-pi) pi (n/segments)
|
||||
, let XYCoord x y = projectionForward p $ LonLat lam phi ]
|
||||
|
||||
landBorders :: [(GeospatialGeometry)]
|
||||
landBorders :: [GeospatialGeometry]
|
||||
landBorders = unsafePerformIO $ do
|
||||
Just geo <- decodeFileStrict "countries.json"
|
||||
return
|
||||
[ (feature ^. geometry)
|
||||
[ feature ^. geometry
|
||||
| feature <- toList $ geo ^. geofeatures :: [GeoFeature Value]
|
||||
]
|
||||
|
||||
|
|
|
|||
Loading…
Reference in a new issue