Fix some hlint warnings

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

View file

@ -1,7 +1,6 @@
#!/usr/bin/env stack
-- stack runghc --package reanimate
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
module Main (main) where
import Data.Monoid ((<>))
@ -77,7 +76,7 @@ curvesExample gen = mkAnimation 2 $ \t ->
, translate (convertX $ 205) (convertX $ -5) $ scale 0.5 $ center $ latex "1"
, translate (convertX $ 100) (convertX $ -30)$ scale 0.6 $ center $ latex name ]
, withFillOpacity 0 $ withStrokeColor "green" $ -- withStrokeWidth 0.5 $
lowerTransformations $ scaleXY (convertX $ 200) (convertX $ (50)) $ mkSignalLine (fromListS curveFns)
lowerTransformations $ scaleXY (convertX $ 200) (convertX $ 50) $ mkSignalLine (fromListS curveFns)
]
]