casr-logbook 0.7.0 → 0.7.1

raw patch · 9 files changed

+23/−9 lines, 9 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• casr-logbook.cabal +1/−1
• src/Data/Aviation/Casr/Logbook/Html/Html.hs +8/−5
• src/Data/Aviation/Casr/Logbook/Meta/BriefingMeta.hs +1/−0
• src/Data/Aviation/Casr/Logbook/Meta/ExamMeta.hs +1/−0
• src/Data/Aviation/Casr/Logbook/Meta/Passenger.hs +1/−0
• src/Data/Aviation/Casr/Logbook/Meta/SimulatorFlightMeta.hs +1/−0
• src/Data/Aviation/Casr/Logbook/Meta/TrackLogs.hs +1/−0
• src/Data/Aviation/Casr/Logbook/Types/Aircraft.hs +8/−3
• src/Data/Aviation/Casr/Logbook/Types/Entries.hs +1/−0

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

@@ -58,7 +58,8 @@       HasTime(daytime),       zerotimeamount,       Rating(Rating),-      Aircraft(Aircraft),+      Aircraft,+      HasAircraft(..),       FlightPoint(FlightPoint),       Aviator(Aviator),       HasAircraft(aircraftRegistration),@@ -158,13 +159,15 @@   AircraftFlight   -> Aircraft   -> Html ()-htmlAircraft _ (Aircraft t r e) =+htmlAircraft _ acft =   span_ [class_ "aircraft"] $-    do  span_ [class_ "aircrafttype"] (fromString t)+    do  span_ [class_ "aircraftyearmodel"] (fromString (view aircraftYearModel acft))         " "-        span_ [class_ "aircraftregistration"] (fromString r)+        span_ [class_ "aircrafttype"] (fromString (view aircraftType acft))         " "-        span_ [class_ "aircraftengine"] (fromString (strEngine e))+        span_ [class_ "aircraftregistration"] (fromString (view aircraftRegistration acft))+        " "+        span_ [class_ "aircraftengine"] (fromString (strEngine (view aircraftEngine acft)))  htmlRatingDay ::   Maybe Day

@@ -3,6 +3,7 @@ {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE FlexibleInstances #-}+{-# LANGUAGE TypeOperators #-}  module Data.Aviation.Casr.Logbook.Meta.BriefingMeta(   BriefingMeta(BriefingMeta)

@@ -3,6 +3,7 @@ {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE FlexibleInstances #-}+{-# LANGUAGE TypeOperators #-}  module Data.Aviation.Casr.Logbook.Meta.ExamMeta(   ExamMeta(ExamMeta)

@@ -3,6 +3,7 @@ {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE TypeOperators #-}  module Data.Aviation.Casr.Logbook.Meta.Passenger(   Passenger(Passenger)

@@ -4,6 +4,7 @@ {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE InstanceSigs #-}+{-# LANGUAGE TypeOperators #-}  module Data.Aviation.Casr.Logbook.Meta.SimulatorFlightMeta(   SimulatorFlightMeta(SimulatorFlightMeta)

@@ -3,6 +3,7 @@ {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE FlexibleInstances #-}+{-# LANGUAGE TypeOperators #-}  module Data.Aviation.Casr.Logbook.Meta.TrackLogs(   TrackLogs(TrackLogs)

@@ -18,7 +18,8 @@  data Aircraft =   Aircraft {-    _aircraftType :: String+    _aircraftYearModel :: String+  , _aircraftType :: String   , _aircraftRegistration :: String   , _aircraftEngine :: Engine   } deriving (Eq, Ord, Show)@@ -28,9 +29,11 @@ singleaircraft ::   String   -> String+  -> String   -> Aircraft-singleaircraft t r =+singleaircraft y t r =   Aircraft+    y     t     r     Single@@ -38,9 +41,11 @@ multiaircraft ::   String   -> String+  -> String   -> Aircraft-multiaircraft t r =+multiaircraft y t r =   Aircraft+    y     t     r     Multi

@@ -4,6 +4,7 @@ {-# LANGUAGE FunctionalDependencies #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE TypeOperators #-}  module Data.Aviation.Casr.Logbook.Types.Entries(   Entries(..)