casr-logbook 0.6.5 → 0.6.6

raw patch · 3 files changed

+15/−1 lines, 3 files

Files

• casr-logbook.cabal +1/−1
• changelog +4/−0
• src/Data/Aviation/Casr/Logbook/Meta/AircraftFlightMeta.hs +10/−0

@@ -1,5 +1,5 @@ name:               casr-logbook-version:            0.6.5+version:            0.6.6 license:            OtherLicense license-file:       LICENSE author:             Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ>

@@ -1,3 +1,7 @@+0.6.6++* Semigroup/Monoid for AircraftFlightMeta+ 0.6.5  * Fix bug in RA/GA instructing.

@@ -15,6 +15,8 @@ import Data.Eq(Eq) import Data.Ord(Ord) import Prelude(Show)+import Data.Monoid+import Data.Semigroup  data AircraftFlightMeta =   AircraftFlightMeta {@@ -27,3 +29,11 @@   } deriving (Eq, Ord, Show)  makeClassy '' AircraftFlightMeta++instance Semigroup AircraftFlightMeta where+  AircraftFlightMeta t1 s1 i1 v1 e1 p1 <> AircraftFlightMeta t2 s2 i2 v2 e2 p2 =+    AircraftFlightMeta (t1 <> t2) (s1 <> s2) (i1 <> i2) (v1 <> v2) (e1 <> e2) (p1 <> p2)++instance Monoid AircraftFlightMeta where+  mempty =+    AircraftFlightMeta mempty mempty mempty mempty mempty mempty