packages feed

casr-logbook-meta 0.0.2 → 0.0.3

raw patch · 5 files changed

+48/−7 lines, 5 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

+ Data.Aviation.Casr.Logbook.Meta.AircraftUsageExpense: aircraftUsageCost :: HasAircraftFlight s => s -> AircraftUsageExpense -> Int
+ Data.Aviation.Casr.Logbook.Meta.BriefingExpense: briefingCost :: HasBriefing s => s -> BriefingExpense -> Int
+ Data.Aviation.Casr.Logbook.Meta.SimulatorFlightExpense: simulatorFlightCost :: HasSimulatorFlight s => s -> SimulatorFlightExpense -> Int
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightExpense: _AircraftFlightExpense :: AsAircraftFlightExpense r_apd8 => Prism' r_apd8 AircraftFlightExpense
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightExpense: _AircraftFlightExpense :: AsAircraftFlightExpense r_autV => Prism' r_autV AircraftFlightExpense
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightExpense: _ExpenseAircraftLanding :: AsAircraftFlightExpense r_apd8 => Prism' r_apd8 AircraftLandingExpense
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightExpense: _ExpenseAircraftLanding :: AsAircraftFlightExpense r_autV => Prism' r_autV AircraftLandingExpense
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightExpense: _ExpenseAircraftUsage :: AsAircraftFlightExpense r_apd8 => Prism' r_apd8 AircraftUsageExpense
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightExpense: _ExpenseAircraftUsage :: AsAircraftFlightExpense r_autV => Prism' r_autV AircraftUsageExpense
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightExpense: class AsAircraftFlightExpense r_apd8 where _ExpenseAircraftUsage = (.) _AircraftFlightExpense _ExpenseAircraftUsage _ExpenseAircraftLanding = (.) _AircraftFlightExpense _ExpenseAircraftLanding
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightExpense: class AsAircraftFlightExpense r_autV where _ExpenseAircraftUsage = (.) _AircraftFlightExpense _ExpenseAircraftUsage _ExpenseAircraftLanding = (.) _AircraftFlightExpense _ExpenseAircraftLanding
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: aircraftFlightMeta :: HasAircraftFlightMeta c_aq2t => Lens' c_aq2t AircraftFlightMeta
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: aircraftFlightMeta :: HasAircraftFlightMeta c_aviU => Lens' c_aviU AircraftFlightMeta
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: class HasAircraftFlightMeta c_aq2t where expenses = (.) aircraftFlightMeta expenses images = (.) aircraftFlightMeta images tracklogs = (.) aircraftFlightMeta tracklogs videos = (.) aircraftFlightMeta videos visualisations = (.) aircraftFlightMeta visualisations
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: class HasAircraftFlightMeta c_aviU where expenses = (.) aircraftFlightMeta expenses images = (.) aircraftFlightMeta images tracklogs = (.) aircraftFlightMeta tracklogs videos = (.) aircraftFlightMeta videos visualisations = (.) aircraftFlightMeta visualisations
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: expenses :: HasAircraftFlightMeta c_aq2t => Lens' c_aq2t [AircraftFlightExpense]
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: expenses :: HasAircraftFlightMeta c_aviU => Lens' c_aviU [AircraftFlightExpense]
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: images :: HasAircraftFlightMeta c_aq2t => Lens' c_aq2t [Image]
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: images :: HasAircraftFlightMeta c_aviU => Lens' c_aviU [Image]
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: tracklogs :: HasAircraftFlightMeta c_aq2t => Lens' c_aq2t [TrackLog]
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: tracklogs :: HasAircraftFlightMeta c_aviU => Lens' c_aviU [TrackLog]
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: videos :: HasAircraftFlightMeta c_aq2t => Lens' c_aq2t [Video]
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: videos :: HasAircraftFlightMeta c_aviU => Lens' c_aviU [Video]
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: visualisations :: HasAircraftFlightMeta c_aq2t => Lens' c_aq2t [Visualisation]
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: visualisations :: HasAircraftFlightMeta c_aviU => Lens' c_aviU [Visualisation]
- Data.Aviation.Casr.Logbook.Meta.AircraftLandingExpense: aircraftLandingExpense :: HasAircraftLandingExpense c_aoqf => Lens' c_aoqf AircraftLandingExpense
+ Data.Aviation.Casr.Logbook.Meta.AircraftLandingExpense: aircraftLandingExpense :: HasAircraftLandingExpense c_atFQ => Lens' c_atFQ AircraftLandingExpense
- Data.Aviation.Casr.Logbook.Meta.AircraftLandingExpense: aircraftlandingexpenseamount :: HasAircraftLandingExpense c_aoqf => Lens' c_aoqf Int
+ Data.Aviation.Casr.Logbook.Meta.AircraftLandingExpense: aircraftlandingexpenseamount :: HasAircraftLandingExpense c_atFQ => Lens' c_atFQ Int
- Data.Aviation.Casr.Logbook.Meta.AircraftLandingExpense: aircraftlandingexpensename :: HasAircraftLandingExpense c_aoqf => Lens' c_aoqf String
+ Data.Aviation.Casr.Logbook.Meta.AircraftLandingExpense: aircraftlandingexpensename :: HasAircraftLandingExpense c_atFQ => Lens' c_atFQ String
- Data.Aviation.Casr.Logbook.Meta.AircraftLandingExpense: class HasAircraftLandingExpense c_aoqf where aircraftlandingexpenseamount = (.) aircraftLandingExpense aircraftlandingexpenseamount aircraftlandingexpensename = (.) aircraftLandingExpense aircraftlandingexpensename
+ Data.Aviation.Casr.Logbook.Meta.AircraftLandingExpense: class HasAircraftLandingExpense c_atFQ where aircraftlandingexpenseamount = (.) aircraftLandingExpense aircraftlandingexpenseamount aircraftlandingexpensename = (.) aircraftLandingExpense aircraftlandingexpensename
- Data.Aviation.Casr.Logbook.Meta.AircraftUsageExpense: aircraftUsageExpense :: HasAircraftUsageExpense c_anDi => Lens' c_anDi AircraftUsageExpense
+ Data.Aviation.Casr.Logbook.Meta.AircraftUsageExpense: aircraftUsageExpense :: HasAircraftUsageExpense c_asM9 => Lens' c_asM9 AircraftUsageExpense
- Data.Aviation.Casr.Logbook.Meta.AircraftUsageExpense: aircraftusageexpensename :: HasAircraftUsageExpense c_anDi => Lens' c_anDi String
+ Data.Aviation.Casr.Logbook.Meta.AircraftUsageExpense: aircraftusageexpensename :: HasAircraftUsageExpense c_asM9 => Lens' c_asM9 String
- Data.Aviation.Casr.Logbook.Meta.AircraftUsageExpense: aircraftusageexpenseperhour :: HasAircraftUsageExpense c_anDi => Lens' c_anDi Int
+ Data.Aviation.Casr.Logbook.Meta.AircraftUsageExpense: aircraftusageexpenseperhour :: HasAircraftUsageExpense c_asM9 => Lens' c_asM9 Int
- Data.Aviation.Casr.Logbook.Meta.AircraftUsageExpense: class HasAircraftUsageExpense c_anDi where aircraftusageexpensename = (.) aircraftUsageExpense aircraftusageexpensename aircraftusageexpenseperhour = (.) aircraftUsageExpense aircraftusageexpenseperhour
+ Data.Aviation.Casr.Logbook.Meta.AircraftUsageExpense: class HasAircraftUsageExpense c_asM9 where aircraftusageexpensename = (.) aircraftUsageExpense aircraftusageexpensename aircraftusageexpenseperhour = (.) aircraftUsageExpense aircraftusageexpenseperhour
- Data.Aviation.Casr.Logbook.Meta.BriefingExpense: briefingExpense :: HasBriefingExpense c_amnj => Lens' c_amnj BriefingExpense
+ Data.Aviation.Casr.Logbook.Meta.BriefingExpense: briefingExpense :: HasBriefingExpense c_arp2 => Lens' c_arp2 BriefingExpense
- Data.Aviation.Casr.Logbook.Meta.BriefingExpense: briefingexpensename :: HasBriefingExpense c_amnj => Lens' c_amnj String
+ Data.Aviation.Casr.Logbook.Meta.BriefingExpense: briefingexpensename :: HasBriefingExpense c_arp2 => Lens' c_arp2 String
- Data.Aviation.Casr.Logbook.Meta.BriefingExpense: briefingexpenseperhour :: HasBriefingExpense c_amnj => Lens' c_amnj Int
+ Data.Aviation.Casr.Logbook.Meta.BriefingExpense: briefingexpenseperhour :: HasBriefingExpense c_arp2 => Lens' c_arp2 Int
- Data.Aviation.Casr.Logbook.Meta.BriefingExpense: class HasBriefingExpense c_amnj where briefingexpensename = (.) briefingExpense briefingexpensename briefingexpenseperhour = (.) briefingExpense briefingexpenseperhour
+ Data.Aviation.Casr.Logbook.Meta.BriefingExpense: class HasBriefingExpense c_arp2 where briefingexpensename = (.) briefingExpense briefingexpensename briefingexpenseperhour = (.) briefingExpense briefingexpenseperhour
- Data.Aviation.Casr.Logbook.Meta.BriefingMeta: briefingMeta :: HasBriefingMeta c_anbd => Lens' c_anbd BriefingMeta
+ Data.Aviation.Casr.Logbook.Meta.BriefingMeta: briefingMeta :: HasBriefingMeta c_asjE => Lens' c_asjE BriefingMeta
- Data.Aviation.Casr.Logbook.Meta.BriefingMeta: class HasBriefingMeta c_anbd
+ Data.Aviation.Casr.Logbook.Meta.BriefingMeta: class HasBriefingMeta c_asjE
- Data.Aviation.Casr.Logbook.Meta.ExamExpense: class HasExamExpense c_al7k where examexpenseamount = (.) examExpense examexpenseamount examexpensename = (.) examExpense examexpensename
+ Data.Aviation.Casr.Logbook.Meta.ExamExpense: class HasExamExpense c_aq7r where examexpenseamount = (.) examExpense examexpenseamount examexpensename = (.) examExpense examexpensename
- Data.Aviation.Casr.Logbook.Meta.ExamExpense: examExpense :: HasExamExpense c_al7k => Lens' c_al7k ExamExpense
+ Data.Aviation.Casr.Logbook.Meta.ExamExpense: examExpense :: HasExamExpense c_aq7r => Lens' c_aq7r ExamExpense
- Data.Aviation.Casr.Logbook.Meta.ExamExpense: examexpenseamount :: HasExamExpense c_al7k => Lens' c_al7k Int
+ Data.Aviation.Casr.Logbook.Meta.ExamExpense: examexpenseamount :: HasExamExpense c_aq7r => Lens' c_aq7r Int
- Data.Aviation.Casr.Logbook.Meta.ExamExpense: examexpensename :: HasExamExpense c_al7k => Lens' c_al7k String
+ Data.Aviation.Casr.Logbook.Meta.ExamExpense: examexpensename :: HasExamExpense c_aq7r => Lens' c_aq7r String
- Data.Aviation.Casr.Logbook.Meta.ExamMeta: class HasExamMeta c_alVe
+ Data.Aviation.Casr.Logbook.Meta.ExamMeta: class HasExamMeta c_aqXf
- Data.Aviation.Casr.Logbook.Meta.ExamMeta: examMeta :: HasExamMeta c_alVe => Lens' c_alVe ExamMeta
+ Data.Aviation.Casr.Logbook.Meta.ExamMeta: examMeta :: HasExamMeta c_aqXf => Lens' c_aqXf ExamMeta
- Data.Aviation.Casr.Logbook.Meta.Image: class HasImage c_ajNZ where imagename = (.) image imagename imagesource = (.) image imagesource imagetype = (.) image imagetype imageuri = (.) image imageuri
+ Data.Aviation.Casr.Logbook.Meta.Image: class HasImage c_aoL6 where imagename = (.) image imagename imagesource = (.) image imagesource imagetype = (.) image imagetype imageuri = (.) image imageuri
- Data.Aviation.Casr.Logbook.Meta.Image: image :: HasImage c_ajNZ => Lens' c_ajNZ Image
+ Data.Aviation.Casr.Logbook.Meta.Image: image :: HasImage c_aoL6 => Lens' c_aoL6 Image
- Data.Aviation.Casr.Logbook.Meta.Image: imagename :: HasImage c_ajNZ => Lens' c_ajNZ (Maybe String)
+ Data.Aviation.Casr.Logbook.Meta.Image: imagename :: HasImage c_aoL6 => Lens' c_aoL6 (Maybe String)
- Data.Aviation.Casr.Logbook.Meta.Image: imagesource :: HasImage c_ajNZ => Lens' c_ajNZ (Maybe String)
+ Data.Aviation.Casr.Logbook.Meta.Image: imagesource :: HasImage c_aoL6 => Lens' c_aoL6 (Maybe String)
- Data.Aviation.Casr.Logbook.Meta.Image: imagetype :: HasImage c_ajNZ => Lens' c_ajNZ ImageType
+ Data.Aviation.Casr.Logbook.Meta.Image: imagetype :: HasImage c_aoL6 => Lens' c_aoL6 ImageType
- Data.Aviation.Casr.Logbook.Meta.Image: imageuri :: HasImage c_ajNZ => Lens' c_ajNZ String
+ Data.Aviation.Casr.Logbook.Meta.Image: imageuri :: HasImage c_aoL6 => Lens' c_aoL6 String
- Data.Aviation.Casr.Logbook.Meta.ImageType: _Gif :: AsImageType r_ag79 => Prism' r_ag79 ()
+ Data.Aviation.Casr.Logbook.Meta.ImageType: _Gif :: AsImageType r_al2E => Prism' r_al2E ()
- Data.Aviation.Casr.Logbook.Meta.ImageType: _ImageType :: AsImageType r_ag79 => Prism' r_ag79 ImageType
+ Data.Aviation.Casr.Logbook.Meta.ImageType: _ImageType :: AsImageType r_al2E => Prism' r_al2E ImageType
- Data.Aviation.Casr.Logbook.Meta.ImageType: _Jpg :: AsImageType r_ag79 => Prism' r_ag79 ()
+ Data.Aviation.Casr.Logbook.Meta.ImageType: _Jpg :: AsImageType r_al2E => Prism' r_al2E ()
- Data.Aviation.Casr.Logbook.Meta.ImageType: _Png :: AsImageType r_ag79 => Prism' r_ag79 ()
+ Data.Aviation.Casr.Logbook.Meta.ImageType: _Png :: AsImageType r_al2E => Prism' r_al2E ()
- Data.Aviation.Casr.Logbook.Meta.ImageType: class AsImageType r_ag79 where _Jpg = (.) _ImageType _Jpg _Png = (.) _ImageType _Png _Gif = (.) _ImageType _Gif
+ Data.Aviation.Casr.Logbook.Meta.ImageType: class AsImageType r_al2E where _Jpg = (.) _ImageType _Jpg _Png = (.) _ImageType _Png _Gif = (.) _ImageType _Gif
- Data.Aviation.Casr.Logbook.Meta.SimulatorFlightExpense: class HasSimulatorFlightExpense c_aeDp where simulatorflightexpensename = (.) simulatorFlightExpense simulatorflightexpensename simulatorflightexpenseperhour = (.) simulatorFlightExpense simulatorflightexpenseperhour
+ Data.Aviation.Casr.Logbook.Meta.SimulatorFlightExpense: class HasSimulatorFlightExpense c_afvJ where simulatorflightexpensename = (.) simulatorFlightExpense simulatorflightexpensename simulatorflightexpenseperhour = (.) simulatorFlightExpense simulatorflightexpenseperhour
- Data.Aviation.Casr.Logbook.Meta.SimulatorFlightExpense: simulatorFlightExpense :: HasSimulatorFlightExpense c_aeDp => Lens' c_aeDp SimulatorFlightExpense
+ Data.Aviation.Casr.Logbook.Meta.SimulatorFlightExpense: simulatorFlightExpense :: HasSimulatorFlightExpense c_afvJ => Lens' c_afvJ SimulatorFlightExpense
- Data.Aviation.Casr.Logbook.Meta.SimulatorFlightExpense: simulatorflightexpensename :: HasSimulatorFlightExpense c_aeDp => Lens' c_aeDp String
+ Data.Aviation.Casr.Logbook.Meta.SimulatorFlightExpense: simulatorflightexpensename :: HasSimulatorFlightExpense c_afvJ => Lens' c_afvJ String
- Data.Aviation.Casr.Logbook.Meta.SimulatorFlightExpense: simulatorflightexpenseperhour :: HasSimulatorFlightExpense c_aeDp => Lens' c_aeDp Int
+ Data.Aviation.Casr.Logbook.Meta.SimulatorFlightExpense: simulatorflightexpenseperhour :: HasSimulatorFlightExpense c_afvJ => Lens' c_afvJ Int
- Data.Aviation.Casr.Logbook.Meta.SimulatorFlightMeta: class HasSimulatorFlightMeta c_afrj
+ Data.Aviation.Casr.Logbook.Meta.SimulatorFlightMeta: class HasSimulatorFlightMeta c_agDy
- Data.Aviation.Casr.Logbook.Meta.SimulatorFlightMeta: simulatorFlightMeta :: HasSimulatorFlightMeta c_afrj => Lens' c_afrj SimulatorFlightMeta
+ Data.Aviation.Casr.Logbook.Meta.SimulatorFlightMeta: simulatorFlightMeta :: HasSimulatorFlightMeta c_agDy => Lens' c_agDy SimulatorFlightMeta
- Data.Aviation.Casr.Logbook.Meta.TrackLog: class HasTrackLog c_ahZU where tracklogname = (.) trackLog tracklogname tracklogsource = (.) trackLog tracklogsource tracklogtype = (.) trackLog tracklogtype trackloguri = (.) trackLog trackloguri
+ Data.Aviation.Casr.Logbook.Meta.TrackLog: class HasTrackLog c_amUd where tracklogname = (.) trackLog tracklogname tracklogsource = (.) trackLog tracklogsource tracklogtype = (.) trackLog tracklogtype trackloguri = (.) trackLog trackloguri
- Data.Aviation.Casr.Logbook.Meta.TrackLog: trackLog :: HasTrackLog c_ahZU => Lens' c_ahZU TrackLog
+ Data.Aviation.Casr.Logbook.Meta.TrackLog: trackLog :: HasTrackLog c_amUd => Lens' c_amUd TrackLog
- Data.Aviation.Casr.Logbook.Meta.TrackLog: tracklogname :: HasTrackLog c_ahZU => Lens' c_ahZU (Maybe String)
+ Data.Aviation.Casr.Logbook.Meta.TrackLog: tracklogname :: HasTrackLog c_amUd => Lens' c_amUd (Maybe String)
- Data.Aviation.Casr.Logbook.Meta.TrackLog: tracklogsource :: HasTrackLog c_ahZU => Lens' c_ahZU (Maybe String)
+ Data.Aviation.Casr.Logbook.Meta.TrackLog: tracklogsource :: HasTrackLog c_amUd => Lens' c_amUd (Maybe String)
- Data.Aviation.Casr.Logbook.Meta.TrackLog: tracklogtype :: HasTrackLog c_ahZU => Lens' c_ahZU TrackLogType
+ Data.Aviation.Casr.Logbook.Meta.TrackLog: tracklogtype :: HasTrackLog c_amUd => Lens' c_amUd TrackLogType
- Data.Aviation.Casr.Logbook.Meta.TrackLog: trackloguri :: HasTrackLog c_ahZU => Lens' c_ahZU String
+ Data.Aviation.Casr.Logbook.Meta.TrackLog: trackloguri :: HasTrackLog c_amUd => Lens' c_amUd String
- Data.Aviation.Casr.Logbook.Meta.TrackLogType: _Gpx :: AsTrackLogType r_ah1K => Prism' r_ah1K ()
+ Data.Aviation.Casr.Logbook.Meta.TrackLogType: _Gpx :: AsTrackLogType r_alWx => Prism' r_alWx ()
- Data.Aviation.Casr.Logbook.Meta.TrackLogType: _ImageTrackLog :: AsTrackLogType r_ah1K => Prism' r_ah1K ImageType
+ Data.Aviation.Casr.Logbook.Meta.TrackLogType: _ImageTrackLog :: AsTrackLogType r_alWx => Prism' r_alWx ImageType
- Data.Aviation.Casr.Logbook.Meta.TrackLogType: _Kml :: AsTrackLogType r_ah1K => Prism' r_ah1K ()
+ Data.Aviation.Casr.Logbook.Meta.TrackLogType: _Kml :: AsTrackLogType r_alWx => Prism' r_alWx ()
- Data.Aviation.Casr.Logbook.Meta.TrackLogType: _Kmz :: AsTrackLogType r_ah1K => Prism' r_ah1K ()
+ Data.Aviation.Casr.Logbook.Meta.TrackLogType: _Kmz :: AsTrackLogType r_alWx => Prism' r_alWx ()
- Data.Aviation.Casr.Logbook.Meta.TrackLogType: _TrackLogType :: AsTrackLogType r_ah1K => Prism' r_ah1K TrackLogType
+ Data.Aviation.Casr.Logbook.Meta.TrackLogType: _TrackLogType :: AsTrackLogType r_alWx => Prism' r_alWx TrackLogType
- Data.Aviation.Casr.Logbook.Meta.TrackLogType: class AsTrackLogType r_ah1K where _Gpx = (.) _TrackLogType _Gpx _Kml = (.) _TrackLogType _Kml _Kmz = (.) _TrackLogType _Kmz _ImageTrackLog = (.) _TrackLogType _ImageTrackLog
+ Data.Aviation.Casr.Logbook.Meta.TrackLogType: class AsTrackLogType r_alWx where _Gpx = (.) _TrackLogType _Gpx _Kml = (.) _TrackLogType _Kml _Kmz = (.) _TrackLogType _Kmz _ImageTrackLog = (.) _TrackLogType _ImageTrackLog
- Data.Aviation.Casr.Logbook.Meta.TrackLogs: class HasTrackLogs c_ajkc
+ Data.Aviation.Casr.Logbook.Meta.TrackLogs: class HasTrackLogs c_aoid
- Data.Aviation.Casr.Logbook.Meta.TrackLogs: trackLogs :: HasTrackLogs c_ajkc => Lens' c_ajkc TrackLogs
+ Data.Aviation.Casr.Logbook.Meta.TrackLogs: trackLogs :: HasTrackLogs c_aoid => Lens' c_aoid TrackLogs
- Data.Aviation.Casr.Logbook.Meta.Video: class HasVideo c_adjY where videoname = (.) video videoname videosource = (.) video videosource videotype = (.) video videotype videouri = (.) video videouri
+ Data.Aviation.Casr.Logbook.Meta.Video: class HasVideo c_adIu where videoname = (.) video videoname videosource = (.) video videosource videotype = (.) video videotype videouri = (.) video videouri
- Data.Aviation.Casr.Logbook.Meta.Video: video :: HasVideo c_adjY => Lens' c_adjY Video
+ Data.Aviation.Casr.Logbook.Meta.Video: video :: HasVideo c_adIu => Lens' c_adIu Video
- Data.Aviation.Casr.Logbook.Meta.Video: videoname :: HasVideo c_adjY => Lens' c_adjY (Maybe String)
+ Data.Aviation.Casr.Logbook.Meta.Video: videoname :: HasVideo c_adIu => Lens' c_adIu (Maybe String)
- Data.Aviation.Casr.Logbook.Meta.Video: videosource :: HasVideo c_adjY => Lens' c_adjY (Maybe String)
+ Data.Aviation.Casr.Logbook.Meta.Video: videosource :: HasVideo c_adIu => Lens' c_adIu (Maybe String)
- Data.Aviation.Casr.Logbook.Meta.Video: videotype :: HasVideo c_adjY => Lens' c_adjY VideoType
+ Data.Aviation.Casr.Logbook.Meta.Video: videotype :: HasVideo c_adIu => Lens' c_adIu VideoType
- Data.Aviation.Casr.Logbook.Meta.Video: videouri :: HasVideo c_adjY => Lens' c_adjY String
+ Data.Aviation.Casr.Logbook.Meta.Video: videouri :: HasVideo c_adIu => Lens' c_adIu String
- Data.Aviation.Casr.Logbook.Meta.VideoType: _Bambuser :: AsVideoType r_ac2D => Prism' r_ac2D ()
+ Data.Aviation.Casr.Logbook.Meta.VideoType: _Bambuser :: AsVideoType r_acqR => Prism' r_acqR ()
- Data.Aviation.Casr.Logbook.Meta.VideoType: _VideoType :: AsVideoType r_ac2D => Prism' r_ac2D VideoType
+ Data.Aviation.Casr.Logbook.Meta.VideoType: _VideoType :: AsVideoType r_acqR => Prism' r_acqR VideoType
- Data.Aviation.Casr.Logbook.Meta.VideoType: _Vimeo :: AsVideoType r_ac2D => Prism' r_ac2D ()
+ Data.Aviation.Casr.Logbook.Meta.VideoType: _Vimeo :: AsVideoType r_acqR => Prism' r_acqR ()
- Data.Aviation.Casr.Logbook.Meta.VideoType: _YouTube :: AsVideoType r_ac2D => Prism' r_ac2D ()
+ Data.Aviation.Casr.Logbook.Meta.VideoType: _YouTube :: AsVideoType r_acqR => Prism' r_acqR ()
- Data.Aviation.Casr.Logbook.Meta.VideoType: class AsVideoType r_ac2D where _YouTube = (.) _VideoType _YouTube _Vimeo = (.) _VideoType _Vimeo _Bambuser = (.) _VideoType _Bambuser
+ Data.Aviation.Casr.Logbook.Meta.VideoType: class AsVideoType r_acqR where _YouTube = (.) _VideoType _YouTube _Vimeo = (.) _VideoType _Vimeo _Bambuser = (.) _VideoType _Bambuser
- Data.Aviation.Casr.Logbook.Meta.Visualisation: class HasVisualisation c_aaWS where doaramaid = (.) visualisation doaramaid doaramaname = (.) visualisation doaramaname oembedid = (.) visualisation oembedid
+ Data.Aviation.Casr.Logbook.Meta.Visualisation: class HasVisualisation c_abja where doaramaid = (.) visualisation doaramaid doaramaname = (.) visualisation doaramaname oembedid = (.) visualisation oembedid
- Data.Aviation.Casr.Logbook.Meta.Visualisation: doaramaid :: HasVisualisation c_aaWS => Lens' c_aaWS String
+ Data.Aviation.Casr.Logbook.Meta.Visualisation: doaramaid :: HasVisualisation c_abja => Lens' c_abja String
- Data.Aviation.Casr.Logbook.Meta.Visualisation: doaramaname :: HasVisualisation c_aaWS => Lens' c_aaWS (Maybe String)
+ Data.Aviation.Casr.Logbook.Meta.Visualisation: doaramaname :: HasVisualisation c_abja => Lens' c_abja (Maybe String)
- Data.Aviation.Casr.Logbook.Meta.Visualisation: oembedid :: HasVisualisation c_aaWS => Lens' c_aaWS String
+ Data.Aviation.Casr.Logbook.Meta.Visualisation: oembedid :: HasVisualisation c_abja => Lens' c_abja String
- Data.Aviation.Casr.Logbook.Meta.Visualisation: visualisation :: HasVisualisation c_aaWS => Lens' c_aaWS Visualisation
+ Data.Aviation.Casr.Logbook.Meta.Visualisation: visualisation :: HasVisualisation c_abja => Lens' c_abja Visualisation

Files

casr-logbook-meta.cabal view
@@ -1,5 +1,5 @@ name:               casr-logbook-meta-version:            0.0.2+version:            0.0.3 license:            OtherLicense license-file:       LICENSE author:             Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ>
changelog view
@@ -1,3 +1,7 @@+0.0.3++* Add `aircraftUsageCost`, `briefingCost`, `simulatorFlightCost`.+ 0.0.2  * Export classy lenses and prisms.
src/Data/Aviation/Casr/Logbook/Meta/AircraftUsageExpense.hs view
@@ -3,14 +3,18 @@ module Data.Aviation.Casr.Logbook.Meta.AircraftUsageExpense(   AircraftUsageExpense(AircraftUsageExpense) , HasAircraftUsageExpense(..)+, aircraftUsageCost ) where -import Control.Lens(makeClassy)+import Control.Lens(makeClassy, (^.))+import Data.Aviation.Casr.Logbook.AircraftFlight(HasAircraftFlight, daynight)+import Data.Aviation.Casr.Logbook.TimeAmount(timeAmountBy10)+import Data.Aviation.Casr.Logbook.DayNight(totalDayNight) import Data.Eq(Eq) import Data.Int(Int) import Data.Ord(Ord) import Data.String(String)-import Prelude(Show)+import Prelude(Show, (*))  data AircraftUsageExpense =   AircraftUsageExpense {@@ -19,3 +23,12 @@   } deriving (Eq, Ord, Show)  makeClassy ''AircraftUsageExpense++aircraftUsageCost ::+  HasAircraftFlight s =>+  s+  -> AircraftUsageExpense+  -> Int+aircraftUsageCost fl (AircraftUsageExpense perhour _) =+  let z = totalDayNight (fl ^. daynight)+  in  timeAmountBy10 z * perhour
src/Data/Aviation/Casr/Logbook/Meta/BriefingExpense.hs view
@@ -3,14 +3,17 @@ module Data.Aviation.Casr.Logbook.Meta.BriefingExpense(   BriefingExpense(BriefingExpense) , HasBriefingExpense(..)+, briefingCost ) where -import Control.Lens(makeClassy)+import Control.Lens(makeClassy, (^.))+import Data.Aviation.Casr.Logbook.Briefing(HasBriefing, briefingTimeAmount)+import Data.Aviation.Casr.Logbook.TimeAmount(timeAmountBy10) import Data.Eq(Eq) import Data.Int(Int) import Data.Ord(Ord) import Data.String(String)-import Prelude(Show)+import Prelude(Show, (*))  data BriefingExpense =   BriefingExpense {@@ -19,3 +22,12 @@   } deriving (Eq, Ord, Show)  makeClassy ''BriefingExpense++briefingCost ::+  HasBriefing s =>+  s+  -> BriefingExpense+  -> Int+briefingCost br (BriefingExpense perhour _) =+  let z = br ^. briefingTimeAmount+  in  timeAmountBy10 z * perhour
src/Data/Aviation/Casr/Logbook/Meta/SimulatorFlightExpense.hs view
@@ -3,14 +3,17 @@ module Data.Aviation.Casr.Logbook.Meta.SimulatorFlightExpense(   SimulatorFlightExpense(SimulatorFlightExpense) , HasSimulatorFlightExpense(..)+, simulatorFlightCost ) where -import Control.Lens(makeClassy)+import Control.Lens(makeClassy, (^.))+import Data.Aviation.Casr.Logbook.SimulatorFlight(HasSimulatorFlight, instrumentsimulatorTime)+import Data.Aviation.Casr.Logbook.TimeAmount(timeAmountBy10) import Data.Eq(Eq) import Data.Int(Int) import Data.Ord(Ord) import Data.String(String)-import Prelude(Show)+import Prelude(Show, (*))  data SimulatorFlightExpense =   SimulatorFlightExpense {@@ -19,3 +22,12 @@   } deriving (Eq, Ord, Show)  makeClassy ''SimulatorFlightExpense++simulatorFlightCost ::+  HasSimulatorFlight s =>+  s+  -> SimulatorFlightExpense+  -> Int+simulatorFlightCost sf (SimulatorFlightExpense perhour _) =+  let z = sf ^. instrumentsimulatorTime+  in  timeAmountBy10 z * perhour