packages feed

fadno 1.1.2 → 1.1.3

raw patch · 3 files changed

+13/−8 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Fadno.Notation: bBarline :: forall n_aAtq. Lens' (Bar n_aAtq) (Maybe Barline)
+ Fadno.Notation: bBarline :: forall n_aAsz. Lens' (Bar n_aAsz) (Maybe Barline)
- Fadno.Notation: bClef :: forall n_aAtq. Lens' (Bar n_aAtq) (Maybe Clef)
+ Fadno.Notation: bClef :: forall n_aAsz. Lens' (Bar n_aAsz) (Maybe Clef)
- Fadno.Notation: bDirection :: forall n_aAtq. Lens' (Bar n_aAtq) (Maybe Direction)
+ Fadno.Notation: bDirection :: forall n_aAsz. Lens' (Bar n_aAsz) (Maybe Direction)
- Fadno.Notation: bNotes :: forall n_aAtq n_aAOT. Lens (Bar n_aAtq) (Bar n_aAOT) (Seq n_aAtq) (Seq n_aAOT)
+ Fadno.Notation: bNotes :: forall n_aAsz n_aAO2. Lens (Bar n_aAsz) (Bar n_aAO2) (Seq n_aAsz) (Seq n_aAO2)
- Fadno.Notation: bRehearsalMark :: forall n_aAtq. Lens' (Bar n_aAtq) (Maybe RehearsalMark)
+ Fadno.Notation: bRehearsalMark :: forall n_aAsz. Lens' (Bar n_aAsz) (Maybe RehearsalMark)
- Fadno.Notation: bRepeats :: forall n_aAtq. Lens' (Bar n_aAtq) (Maybe Repeats)
+ Fadno.Notation: bRepeats :: forall n_aAsz. Lens' (Bar n_aAsz) (Maybe Repeats)
- Fadno.Notation: bTimeSignature :: forall n_aAtq. Lens' (Bar n_aAtq) (Maybe TimeSignature)
+ Fadno.Notation: bTimeSignature :: forall n_aAsz. Lens' (Bar n_aAsz) (Maybe TimeSignature)
- Fadno.Notation: nArticulation :: forall p_aAje d_aAjf. Lens' (Note' p_aAje d_aAjf) (Maybe Articulation)
+ Fadno.Notation: nArticulation :: forall p_aAin d_aAio. Lens' (Note' p_aAin d_aAio) (Maybe Articulation)
- Fadno.Notation: nNote :: forall p_aAje d_aAjf p_aAsL d_aAsM. Lens (Note' p_aAje d_aAjf) (Note' p_aAsL d_aAsM) (Note p_aAje d_aAjf) (Note p_aAsL d_aAsM)
+ Fadno.Notation: nNote :: forall p_aAin d_aAio p_aArU d_aArV. Lens (Note' p_aAin d_aAio) (Note' p_aArU d_aArV) (Note p_aAin d_aAio) (Note p_aArU d_aArV)
- Fadno.Notation: nSlur :: forall p_aAje d_aAjf. Lens' (Note' p_aAje d_aAjf) (Maybe Slur)
+ Fadno.Notation: nSlur :: forall p_aAin d_aAio. Lens' (Note' p_aAin d_aAio) (Maybe Slur)
- Fadno.Notation: nTie :: forall p_aAje d_aAjf. Lens' (Note' p_aAje d_aAjf) (Maybe Tie)
+ Fadno.Notation: nTie :: forall p_aAin d_aAio. Lens' (Note' p_aAin d_aAio) (Maybe Tie)
- Fadno.Notation: partIdx :: forall a_azQo a_aAj1. Iso (Part a_azQo) (Part a_aAj1) a_azQo a_aAj1
+ Fadno.Notation: partIdx :: forall a_azPx a_aAia. Iso (Part a_azPx) (Part a_aAia) a_azPx a_aAia
- Fadno.Note: dur :: forall p_aeF2 d_aeF3 d_aoS1. Lens (Note p_aeF2 d_aeF3) (Note p_aeF2 d_aoS1) d_aeF3 d_aoS1
+ Fadno.Note: dur :: forall p_aeZF d_aeZG d_aoS1. Lens (Note p_aeZF d_aeZG) (Note p_aeZF d_aoS1) d_aeZG d_aoS1
- Fadno.Note: pitch :: forall p_aeF2 d_aeF3 p_aoS2. Lens (Note p_aeF2 d_aeF3) (Note p_aoS2 d_aeF3) p_aeF2 p_aoS2
+ Fadno.Note: pitch :: forall p_aeZF d_aeZG p_aoS2. Lens (Note p_aeZF d_aeZG) (Note p_aoS2 d_aeZG) p_aeZF p_aoS2

Files

fadno.cabal view
@@ -1,7 +1,7 @@ name:                fadno category:            Music synopsis:            Minimal library for music generation and notation-version:             1.1.2+version:             1.1.3 homepage:            http://github.com/slpopejoy/fadno description:         Provides the Note type and HasNote class with polymorphic pitch and duration representations,                      metering, barring and time signature utilities, plus midi and MusicXML support.@@ -31,22 +31,22 @@                      , HUnit >= 1.5                      , base >= 4.9 && < 4.13                      , containers >= 0.5-                     , comonad >= 5 +                     , comonad >= 5                      , data-default >= 0.7-                     , deepseq >= 1.4 +                     , deepseq >= 1.4                      , event-list >= 0.1                      , fadno-braids >= 0.1                      , fadno-xml >= 1.1-                     , lens >= 4.15 +                     , lens >= 4.15                      , midi >= 0.2-                     , mtl >= 2.2 +                     , mtl >= 2.2                      , process >= 1.4                      , safe >= 0.3                      , split >= 0.2                      , text >= 1.2-                     , unordered-containers >= 0.2 -                     , vector >= 0.12 -                     , xml >= 1.3 +                     , unordered-containers >= 0.2+                     , vector >= 0.12+                     , xml >= 1.3   hs-source-dirs: src   default-language:    Haskell2010
src/Fadno/Notation.hs view
@@ -17,6 +17,7 @@ module Fadno.Notation where  import GHC.Generics+import Data.Semigroup import Data.String import Data.Default import Fadno.Note@@ -247,6 +248,7 @@     a <> b = over bNotes (<> view bNotes b) a instance Monoid (Bar n) where     mempty = def+    mappend = (<>)  -- | Bar smart ctor, used in 'Show'. bar :: [n] -> Bar n
src/Fadno/Note.hs view
@@ -26,6 +26,7 @@ import Control.Lens import Control.Arrow import Data.Ratio+import Data.Semigroup import GHC.Generics (Generic) import Data.Traversable import Data.Function@@ -79,6 +80,8 @@     (M a) <> (M b) = M (a + b) instance Num p => Monoid (Mono p) where     mempty = Rest+    mappend = (<>)+ -- | Mono/Maybe isomorphism. maybeMono :: Iso' (Maybe a) (Mono a) maybeMono = iso toMono toMaybe