packages feed

diagrams-lib 1.4.5.2 → 1.4.5.3

raw patch · 3 files changed

+9/−14 lines, 3 filesdep ~fsnotifydep ~lineardep ~mtlPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: fsnotify, linear, mtl

API changes (from Hackage documentation)

- Diagrams.Backend.CmdLine: [_interval] :: DiagramLoopOpts -> Int
- Diagrams.Backend.CmdLine: interval :: Lens' DiagramLoopOpts Int
- Diagrams.Backend.CmdLine: DiagramLoopOpts :: Bool -> Maybe FilePath -> Int -> DiagramLoopOpts
+ Diagrams.Backend.CmdLine: DiagramLoopOpts :: Bool -> Maybe FilePath -> DiagramLoopOpts
- Diagrams.Segment: oeEnvelope :: forall v_aZho n_aZhp. Lens' (OffsetEnvelope v_aZho n_aZhp) (Envelope v_aZho n_aZhp)
+ Diagrams.Segment: oeEnvelope :: forall v_aYVC n_aYVD. Lens' (OffsetEnvelope v_aYVC n_aYVD) (Envelope v_aYVC n_aYVD)
- Diagrams.Segment: oeOffset :: forall v_aZho n_aZhp. Lens' (OffsetEnvelope v_aZho n_aZhp) (TotalOffset v_aZho n_aZhp)
+ Diagrams.Segment: oeOffset :: forall v_aYVC n_aYVD. Lens' (OffsetEnvelope v_aYVC n_aYVD) (TotalOffset v_aYVC n_aYVD)
- Diagrams.ThreeD.Camera: horizontalFieldOfView :: forall n_aNik. Lens' (PerspectiveLens n_aNik) (Angle n_aNik)
+ Diagrams.ThreeD.Camera: horizontalFieldOfView :: forall n_aMWy. Lens' (PerspectiveLens n_aMWy) (Angle n_aMWy)
- Diagrams.ThreeD.Camera: orthoHeight :: forall n_aNkJ. Lens' (OrthoLens n_aNkJ) n_aNkJ
+ Diagrams.ThreeD.Camera: orthoHeight :: forall n_aMYX. Lens' (OrthoLens n_aMYX) n_aMYX
- Diagrams.ThreeD.Camera: orthoWidth :: forall n_aNkJ. Lens' (OrthoLens n_aNkJ) n_aNkJ
+ Diagrams.ThreeD.Camera: orthoWidth :: forall n_aMYX. Lens' (OrthoLens n_aMYX) n_aMYX
- Diagrams.ThreeD.Camera: verticalFieldOfView :: forall n_aNik. Lens' (PerspectiveLens n_aNik) (Angle n_aNik)
+ Diagrams.ThreeD.Camera: verticalFieldOfView :: forall n_aMWy. Lens' (PerspectiveLens n_aMWy) (Angle n_aMWy)
- Diagrams.Transform.ScaleInv: scaleInvDir :: forall t_aFRO. Lens' (ScaleInv t_aFRO) (Vn t_aFRO)
+ Diagrams.Transform.ScaleInv: scaleInvDir :: forall t_aFw2. Lens' (ScaleInv t_aFw2) (Vn t_aFw2)
- Diagrams.Transform.ScaleInv: scaleInvLoc :: forall t_aFRO. Lens' (ScaleInv t_aFRO) (Point (V t_aFRO) (N t_aFRO))
+ Diagrams.Transform.ScaleInv: scaleInvLoc :: forall t_aFw2. Lens' (ScaleInv t_aFw2) (Point (V t_aFw2) (N t_aFw2))
- Diagrams.Transform.ScaleInv: scaleInvObj :: forall t_aFRO. Lens' (ScaleInv t_aFRO) t_aFRO
+ Diagrams.Transform.ScaleInv: scaleInvObj :: forall t_aFw2. Lens' (ScaleInv t_aFw2) t_aFw2
- Diagrams.TwoD: _LG :: forall n_a20OA. Prism' (Texture n_a20OA) (LGradient n_a20OA)
+ Diagrams.TwoD: _LG :: forall n_a20sO. Prism' (Texture n_a20sO) (LGradient n_a20sO)
- Diagrams.TwoD: _RG :: forall n_a20OA. Prism' (Texture n_a20OA) (RGradient n_a20OA)
+ Diagrams.TwoD: _RG :: forall n_a20sO. Prism' (Texture n_a20sO) (RGradient n_a20sO)
- Diagrams.TwoD: _SC :: forall n_a20OA. Prism' (Texture n_a20OA) SomeColor
+ Diagrams.TwoD: _SC :: forall n_a20sO. Prism' (Texture n_a20sO) SomeColor
- Diagrams.TwoD: eColor :: forall n_a2nCF. Lens' (EnvelopeOpts n_a2nCF) (Colour Double)
+ Diagrams.TwoD: eColor :: forall n_a2ngT. Lens' (EnvelopeOpts n_a2ngT) (Colour Double)
- Diagrams.TwoD: eLineWidth :: forall n_a2nCF n_a2nF7. Lens (EnvelopeOpts n_a2nCF) (EnvelopeOpts n_a2nF7) (Measure n_a2nCF) (Measure n_a2nF7)
+ Diagrams.TwoD: eLineWidth :: forall n_a2ngT n_a2njl. Lens (EnvelopeOpts n_a2ngT) (EnvelopeOpts n_a2njl) (Measure n_a2ngT) (Measure n_a2njl)
- Diagrams.TwoD: ePoints :: forall n_a2nCF. Lens' (EnvelopeOpts n_a2nCF) Int
+ Diagrams.TwoD: ePoints :: forall n_a2ngT. Lens' (EnvelopeOpts n_a2ngT) Int
- Diagrams.TwoD: oColor :: forall n_a2nBI. Lens' (OriginOpts n_a2nBI) (Colour Double)
+ Diagrams.TwoD: oColor :: forall n_a2nfW. Lens' (OriginOpts n_a2nfW) (Colour Double)
- Diagrams.TwoD: oMinSize :: forall n_a2nBI. Lens' (OriginOpts n_a2nBI) n_a2nBI
+ Diagrams.TwoD: oMinSize :: forall n_a2nfW. Lens' (OriginOpts n_a2nfW) n_a2nfW
- Diagrams.TwoD: oScale :: forall n_a2nBI. Lens' (OriginOpts n_a2nBI) n_a2nBI
+ Diagrams.TwoD: oScale :: forall n_a2nfW. Lens' (OriginOpts n_a2nfW) n_a2nfW
- Diagrams.TwoD: radiusBL :: forall d_a1KBj. Lens' (RoundedRectOpts d_a1KBj) d_a1KBj
+ Diagrams.TwoD: radiusBL :: forall d_a1Kfx. Lens' (RoundedRectOpts d_a1Kfx) d_a1Kfx
- Diagrams.TwoD: radiusBR :: forall d_a1KBj. Lens' (RoundedRectOpts d_a1KBj) d_a1KBj
+ Diagrams.TwoD: radiusBR :: forall d_a1Kfx. Lens' (RoundedRectOpts d_a1Kfx) d_a1Kfx
- Diagrams.TwoD: radiusTL :: forall d_a1KBj. Lens' (RoundedRectOpts d_a1KBj) d_a1KBj
+ Diagrams.TwoD: radiusTL :: forall d_a1Kfx. Lens' (RoundedRectOpts d_a1Kfx) d_a1Kfx
- Diagrams.TwoD: radiusTR :: forall d_a1KBj. Lens' (RoundedRectOpts d_a1KBj) d_a1KBj
+ Diagrams.TwoD: radiusTR :: forall d_a1Kfx. Lens' (RoundedRectOpts d_a1Kfx) d_a1Kfx
- Diagrams.TwoD: tColor :: forall n_a2nFw. Lens' (TraceOpts n_a2nFw) (Colour Double)
+ Diagrams.TwoD: tColor :: forall n_a2njK. Lens' (TraceOpts n_a2njK) (Colour Double)
- Diagrams.TwoD: tMinSize :: forall n_a2nFw. Lens' (TraceOpts n_a2nFw) n_a2nFw
+ Diagrams.TwoD: tMinSize :: forall n_a2njK. Lens' (TraceOpts n_a2njK) n_a2njK
- Diagrams.TwoD: tPoints :: forall n_a2nFw. Lens' (TraceOpts n_a2nFw) Int
+ Diagrams.TwoD: tPoints :: forall n_a2njK. Lens' (TraceOpts n_a2njK) Int
- Diagrams.TwoD: tScale :: forall n_a2nFw. Lens' (TraceOpts n_a2nFw) n_a2nFw
+ Diagrams.TwoD: tScale :: forall n_a2njK. Lens' (TraceOpts n_a2njK) n_a2njK
- Diagrams.TwoD.Attributes: _LG :: forall n_a20OA. Prism' (Texture n_a20OA) (LGradient n_a20OA)
+ Diagrams.TwoD.Attributes: _LG :: forall n_a20sO. Prism' (Texture n_a20sO) (LGradient n_a20sO)
- Diagrams.TwoD.Attributes: _RG :: forall n_a20OA. Prism' (Texture n_a20OA) (RGradient n_a20OA)
+ Diagrams.TwoD.Attributes: _RG :: forall n_a20sO. Prism' (Texture n_a20sO) (RGradient n_a20sO)
- Diagrams.TwoD.Attributes: _SC :: forall n_a20OA. Prism' (Texture n_a20OA) SomeColor
+ Diagrams.TwoD.Attributes: _SC :: forall n_a20sO. Prism' (Texture n_a20sO) SomeColor
- Diagrams.TwoD.Model: eColor :: forall n_a2nCF. Lens' (EnvelopeOpts n_a2nCF) (Colour Double)
+ Diagrams.TwoD.Model: eColor :: forall n_a2ngT. Lens' (EnvelopeOpts n_a2ngT) (Colour Double)
- Diagrams.TwoD.Model: eLineWidth :: forall n_a2nCF n_a2nF7. Lens (EnvelopeOpts n_a2nCF) (EnvelopeOpts n_a2nF7) (Measure n_a2nCF) (Measure n_a2nF7)
+ Diagrams.TwoD.Model: eLineWidth :: forall n_a2ngT n_a2njl. Lens (EnvelopeOpts n_a2ngT) (EnvelopeOpts n_a2njl) (Measure n_a2ngT) (Measure n_a2njl)
- Diagrams.TwoD.Model: ePoints :: forall n_a2nCF. Lens' (EnvelopeOpts n_a2nCF) Int
+ Diagrams.TwoD.Model: ePoints :: forall n_a2ngT. Lens' (EnvelopeOpts n_a2ngT) Int
- Diagrams.TwoD.Model: oColor :: forall n_a2nBI. Lens' (OriginOpts n_a2nBI) (Colour Double)
+ Diagrams.TwoD.Model: oColor :: forall n_a2nfW. Lens' (OriginOpts n_a2nfW) (Colour Double)
- Diagrams.TwoD.Model: oMinSize :: forall n_a2nBI. Lens' (OriginOpts n_a2nBI) n_a2nBI
+ Diagrams.TwoD.Model: oMinSize :: forall n_a2nfW. Lens' (OriginOpts n_a2nfW) n_a2nfW
- Diagrams.TwoD.Model: oScale :: forall n_a2nBI. Lens' (OriginOpts n_a2nBI) n_a2nBI
+ Diagrams.TwoD.Model: oScale :: forall n_a2nfW. Lens' (OriginOpts n_a2nfW) n_a2nfW
- Diagrams.TwoD.Model: tColor :: forall n_a2nFw. Lens' (TraceOpts n_a2nFw) (Colour Double)
+ Diagrams.TwoD.Model: tColor :: forall n_a2njK. Lens' (TraceOpts n_a2njK) (Colour Double)
- Diagrams.TwoD.Model: tMinSize :: forall n_a2nFw. Lens' (TraceOpts n_a2nFw) n_a2nFw
+ Diagrams.TwoD.Model: tMinSize :: forall n_a2njK. Lens' (TraceOpts n_a2njK) n_a2njK
- Diagrams.TwoD.Model: tPoints :: forall n_a2nFw. Lens' (TraceOpts n_a2nFw) Int
+ Diagrams.TwoD.Model: tPoints :: forall n_a2njK. Lens' (TraceOpts n_a2njK) Int
- Diagrams.TwoD.Model: tScale :: forall n_a2nFw. Lens' (TraceOpts n_a2nFw) n_a2nFw
+ Diagrams.TwoD.Model: tScale :: forall n_a2njK. Lens' (TraceOpts n_a2njK) n_a2njK
- Diagrams.TwoD.Shapes: radiusBL :: forall d_a1KBj. Lens' (RoundedRectOpts d_a1KBj) d_a1KBj
+ Diagrams.TwoD.Shapes: radiusBL :: forall d_a1Kfx. Lens' (RoundedRectOpts d_a1Kfx) d_a1Kfx
- Diagrams.TwoD.Shapes: radiusBR :: forall d_a1KBj. Lens' (RoundedRectOpts d_a1KBj) d_a1KBj
+ Diagrams.TwoD.Shapes: radiusBR :: forall d_a1Kfx. Lens' (RoundedRectOpts d_a1Kfx) d_a1Kfx
- Diagrams.TwoD.Shapes: radiusTL :: forall d_a1KBj. Lens' (RoundedRectOpts d_a1KBj) d_a1KBj
+ Diagrams.TwoD.Shapes: radiusTL :: forall d_a1Kfx. Lens' (RoundedRectOpts d_a1Kfx) d_a1Kfx
- Diagrams.TwoD.Shapes: radiusTR :: forall d_a1KBj. Lens' (RoundedRectOpts d_a1KBj) d_a1KBj
+ Diagrams.TwoD.Shapes: radiusTR :: forall d_a1Kfx. Lens' (RoundedRectOpts d_a1Kfx) d_a1Kfx

Files

CHANGELOG.md view
@@ -1,3 +1,7 @@+## [v1.4.5.3](https://github.com/diagrams/diagrams-lib/tree/v1.4.5.3) (2022-09-19)++- Update to `fsnotify-0.4`+ ## [v1.4.5.2](https://github.com/diagrams/diagrams-lib/tree/v1.4.5.2) (2022-09-14)  - Fix build with `transformers-0.6`
diagrams-lib.cabal view
@@ -1,5 +1,5 @@ Name:                diagrams-lib-Version:             1.4.5.2+Version:             1.4.5.3 Synopsis:            Embedded domain-specific language for declarative graphics Description:         Diagrams is a flexible, extensible EDSL for creating                      graphics of many types.  Graphics can be created@@ -123,7 +123,7 @@                        adjunctions >= 4.0 && < 5.0,                        distributive >=0.2.2 && < 1.0,                        process >= 1.1 && < 1.7,-                       fsnotify >= 0.2.1 && < 0.4,+                       fsnotify >= 0.4 && < 0.5,                        directory >= 1.2 && < 1.4,                        unordered-containers >= 0.2 && < 0.3,                        text >= 0.7.1 && < 2.1,
src/Diagrams/Backend/CmdLine.hs view
@@ -55,7 +55,6 @@   , diagramLoopOpts   , loop   , src-  , interval      -- * Parsing   , Parseable(..)@@ -111,9 +110,9 @@ import           System.FilePath           (addExtension, dropExtension,                                             replaceExtension, splitExtension,                                             takeDirectory, takeFileName, (</>))-import           System.FSNotify           (WatchConfig (..), defaultConfig,+import           System.FSNotify           (defaultConfig,                                             eventTime, watchDir,-                                            withManagerConf)+                                            withManagerConf, confWatchMode, WatchMode(..)) import           System.FSNotify.Devel     (existsEvents) import           System.Info               (os) import           System.IO                 (hFlush, stdout)@@ -154,7 +153,6 @@ data DiagramLoopOpts = DiagramLoopOpts   { _loop     :: Bool            -- ^ Flag to indicate that the program should loop creation.   , _src      :: Maybe FilePath  -- ^ File path for the source file to recompile.-  , _interval :: Int             -- ^ Interval in seconds at which to check for recompilation.   }  makeLenses ''DiagramLoopOpts@@ -204,18 +202,12 @@ -- | CommandLine parser for 'DiagramLoopOpts' --   Loop is @--loop@ or @-l@. --   Source is @--src@ or @-s@.---   Interval is @-i@ defaulting to one second. diagramLoopOpts :: Parser DiagramLoopOpts diagramLoopOpts = DiagramLoopOpts   <$> switch (long "loop" <> short 'l' <> help "Run in a self-recompiling loop")   <*> (optional . strOption)       ( long "src" <> short 's'      <> help "Source file to watch")-  <*> option auto-      ( long "interval" <> short 'i'-     <> value 1-     <> metavar "INTERVAL"-     <> help "When running in a loop, check for changes every INTERVAL seconds.")  -- | A hidden \"helper\" option which always fails. --   Taken from Options.Applicative.Extra but without the@@ -600,8 +592,7 @@       newProg     = newProgName (takeFileName srcPath) prog       timeOfDay   = take 8 . drop 11 . show . eventTime -  -- Polling is only used on Windows-  withManagerConf defaultConfig { confPollInterval = opts ^. interval } $+  withManagerConf defaultConfig { confWatchMode = WatchModeOS } $     \mgr -> do       lock <- newIORef False