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:
Jan Hrcek 2020-09-20 16:51:22 +02:00 committed by GitHub
commit 0aca2333e2
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
63 changed files with 240 additions and 275 deletions

View file

@ -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]
]