casr-logbook 0.5.2 → 0.5.3
raw patch · 3 files changed
+11/−7 lines, 3 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightExpense: _AircraftFlightExpense :: AsAircraftFlightExpense r_a155g => Prism' r_a155g AircraftFlightExpense
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightExpense: _AircraftFlightExpense :: AsAircraftFlightExpense r_a156a => Prism' r_a156a AircraftFlightExpense
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightExpense: _ExpenseAircraftLanding :: AsAircraftFlightExpense r_a155g => Prism' r_a155g AircraftLandingExpense
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightExpense: _ExpenseAircraftLanding :: AsAircraftFlightExpense r_a156a => Prism' r_a156a AircraftLandingExpense
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightExpense: _ExpenseAircraftUsage :: AsAircraftFlightExpense r_a155g => Prism' r_a155g AircraftUsageExpense
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightExpense: _ExpenseAircraftUsage :: AsAircraftFlightExpense r_a156a => Prism' r_a156a AircraftUsageExpense
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightExpense: class AsAircraftFlightExpense r_a155g
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightExpense: class AsAircraftFlightExpense r_a156a
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: aircraftFlightMeta :: HasAircraftFlightMeta c_a15Kb => Lens' c_a15Kb AircraftFlightMeta
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: aircraftFlightMeta :: HasAircraftFlightMeta c_a15L5 => Lens' c_a15L5 AircraftFlightMeta
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: class HasAircraftFlightMeta c_a15Kb
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: class HasAircraftFlightMeta c_a15L5
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: expenses :: HasAircraftFlightMeta c_a15Kb => Lens' c_a15Kb [AircraftFlightExpense]
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: expenses :: HasAircraftFlightMeta c_a15L5 => Lens' c_a15L5 [AircraftFlightExpense]
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: images :: HasAircraftFlightMeta c_a15Kb => Lens' c_a15Kb [Image]
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: images :: HasAircraftFlightMeta c_a15L5 => Lens' c_a15L5 [Image]
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: pax :: HasAircraftFlightMeta c_a15Kb => Lens' c_a15Kb [Passenger]
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: pax :: HasAircraftFlightMeta c_a15L5 => Lens' c_a15L5 [Passenger]
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: tracklogs :: HasAircraftFlightMeta c_a15Kb => Lens' c_a15Kb [TrackLog]
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: tracklogs :: HasAircraftFlightMeta c_a15L5 => Lens' c_a15L5 [TrackLog]
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: videos :: HasAircraftFlightMeta c_a15Kb => Lens' c_a15Kb [Video]
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: videos :: HasAircraftFlightMeta c_a15L5 => Lens' c_a15L5 [Video]
- Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: visualisations :: HasAircraftFlightMeta c_a15Kb => Lens' c_a15Kb [Visualisation]
+ Data.Aviation.Casr.Logbook.Meta.AircraftFlightMeta: visualisations :: HasAircraftFlightMeta c_a15L5 => Lens' c_a15L5 [Visualisation]
- Data.Aviation.Casr.Logbook.Meta.AircraftUsageExpense: aircraftUsageExpense :: HasAircraftUsageExpense c_a14nc => Lens' c_a14nc AircraftUsageExpense
+ Data.Aviation.Casr.Logbook.Meta.AircraftUsageExpense: aircraftUsageExpense :: HasAircraftUsageExpense c_a14o6 => Lens' c_a14o6 AircraftUsageExpense
- Data.Aviation.Casr.Logbook.Meta.AircraftUsageExpense: aircraftusageexpensename :: HasAircraftUsageExpense c_a14nc => Lens' c_a14nc String
+ Data.Aviation.Casr.Logbook.Meta.AircraftUsageExpense: aircraftusageexpensename :: HasAircraftUsageExpense c_a14o6 => Lens' c_a14o6 String
- Data.Aviation.Casr.Logbook.Meta.AircraftUsageExpense: aircraftusageexpenseperhour :: HasAircraftUsageExpense c_a14nc => Lens' c_a14nc Int
+ Data.Aviation.Casr.Logbook.Meta.AircraftUsageExpense: aircraftusageexpenseperhour :: HasAircraftUsageExpense c_a14o6 => Lens' c_a14o6 Int
- Data.Aviation.Casr.Logbook.Meta.AircraftUsageExpense: class HasAircraftUsageExpense c_a14nc
+ Data.Aviation.Casr.Logbook.Meta.AircraftUsageExpense: class HasAircraftUsageExpense c_a14o6
- Data.Aviation.Casr.Logbook.Meta.BriefingExpense: briefingExpense :: HasBriefingExpense c_a13e5 => Lens' c_a13e5 BriefingExpense
+ Data.Aviation.Casr.Logbook.Meta.BriefingExpense: briefingExpense :: HasBriefingExpense c_a13eZ => Lens' c_a13eZ BriefingExpense
- Data.Aviation.Casr.Logbook.Meta.BriefingExpense: briefingexpensename :: HasBriefingExpense c_a13e5 => Lens' c_a13e5 String
+ Data.Aviation.Casr.Logbook.Meta.BriefingExpense: briefingexpensename :: HasBriefingExpense c_a13eZ => Lens' c_a13eZ String
- Data.Aviation.Casr.Logbook.Meta.BriefingExpense: briefingexpenseperhour :: HasBriefingExpense c_a13e5 => Lens' c_a13e5 Int
+ Data.Aviation.Casr.Logbook.Meta.BriefingExpense: briefingexpenseperhour :: HasBriefingExpense c_a13eZ => Lens' c_a13eZ Int
- Data.Aviation.Casr.Logbook.Meta.BriefingExpense: class HasBriefingExpense c_a13e5
+ Data.Aviation.Casr.Logbook.Meta.BriefingExpense: class HasBriefingExpense c_a13eZ
- Data.Aviation.Casr.Logbook.Meta.BriefingMeta: briefingMeta :: HasBriefingMeta c_a13Yp => Lens' c_a13Yp BriefingMeta
+ Data.Aviation.Casr.Logbook.Meta.BriefingMeta: briefingMeta :: HasBriefingMeta c_a13Zj => Lens' c_a13Zj BriefingMeta
- Data.Aviation.Casr.Logbook.Meta.BriefingMeta: class HasBriefingMeta c_a13Yp
+ Data.Aviation.Casr.Logbook.Meta.BriefingMeta: class HasBriefingMeta c_a13Zj
- Data.Aviation.Casr.Logbook.Meta.SimulatorFlightExpense: class HasSimulatorFlightExpense c_a123V
+ Data.Aviation.Casr.Logbook.Meta.SimulatorFlightExpense: class HasSimulatorFlightExpense c_a124P
- Data.Aviation.Casr.Logbook.Meta.SimulatorFlightExpense: simulatorFlightExpense :: HasSimulatorFlightExpense c_a123V => Lens' c_a123V SimulatorFlightExpense
+ Data.Aviation.Casr.Logbook.Meta.SimulatorFlightExpense: simulatorFlightExpense :: HasSimulatorFlightExpense c_a124P => Lens' c_a124P SimulatorFlightExpense
- Data.Aviation.Casr.Logbook.Meta.SimulatorFlightExpense: simulatorflightexpensename :: HasSimulatorFlightExpense c_a123V => Lens' c_a123V String
+ Data.Aviation.Casr.Logbook.Meta.SimulatorFlightExpense: simulatorflightexpensename :: HasSimulatorFlightExpense c_a124P => Lens' c_a124P String
- Data.Aviation.Casr.Logbook.Meta.SimulatorFlightExpense: simulatorflightexpenseperhour :: HasSimulatorFlightExpense c_a123V => Lens' c_a123V Int
+ Data.Aviation.Casr.Logbook.Meta.SimulatorFlightExpense: simulatorflightexpenseperhour :: HasSimulatorFlightExpense c_a124P => Lens' c_a124P Int
- Data.Aviation.Casr.Logbook.Meta.SimulatorFlightMeta: class HasSimulatorFlightMeta c_a12Pi
+ Data.Aviation.Casr.Logbook.Meta.SimulatorFlightMeta: class HasSimulatorFlightMeta c_a12Qc
- Data.Aviation.Casr.Logbook.Meta.SimulatorFlightMeta: simulatorFlightMeta :: HasSimulatorFlightMeta c_a12Pi => Lens' c_a12Pi SimulatorFlightMeta
+ Data.Aviation.Casr.Logbook.Meta.SimulatorFlightMeta: simulatorFlightMeta :: HasSimulatorFlightMeta c_a12Qc => Lens' c_a12Qc SimulatorFlightMeta
- Data.Aviation.Casr.Logbook.Reports.Meta.ExpenseReport: aircraftLandingExpenseTotal :: HasExpenseReport c_a17mo => Lens' c_a17mo Int
+ Data.Aviation.Casr.Logbook.Reports.Meta.ExpenseReport: aircraftLandingExpenseTotal :: HasExpenseReport c_a17ni => Lens' c_a17ni Int
- Data.Aviation.Casr.Logbook.Reports.Meta.ExpenseReport: aircraftUsageExpenseTotal :: HasExpenseReport c_a17mo => Lens' c_a17mo Int
+ Data.Aviation.Casr.Logbook.Reports.Meta.ExpenseReport: aircraftUsageExpenseTotal :: HasExpenseReport c_a17ni => Lens' c_a17ni Int
- Data.Aviation.Casr.Logbook.Reports.Meta.ExpenseReport: briefingExpenseTotal :: HasExpenseReport c_a17mo => Lens' c_a17mo Int
+ Data.Aviation.Casr.Logbook.Reports.Meta.ExpenseReport: briefingExpenseTotal :: HasExpenseReport c_a17ni => Lens' c_a17ni Int
- Data.Aviation.Casr.Logbook.Reports.Meta.ExpenseReport: class HasExpenseReport c_a17mo
+ Data.Aviation.Casr.Logbook.Reports.Meta.ExpenseReport: class HasExpenseReport c_a17ni
- Data.Aviation.Casr.Logbook.Reports.Meta.ExpenseReport: examExpenseTotal :: HasExpenseReport c_a17mo => Lens' c_a17mo Int
+ Data.Aviation.Casr.Logbook.Reports.Meta.ExpenseReport: examExpenseTotal :: HasExpenseReport c_a17ni => Lens' c_a17ni Int
- Data.Aviation.Casr.Logbook.Reports.Meta.ExpenseReport: expenseReport :: HasExpenseReport c_a17mo => Lens' c_a17mo ExpenseReport
+ Data.Aviation.Casr.Logbook.Reports.Meta.ExpenseReport: expenseReport :: HasExpenseReport c_a17ni => Lens' c_a17ni ExpenseReport
- Data.Aviation.Casr.Logbook.Reports.Meta.ExpenseReport: simulatorFlightTotal :: HasExpenseReport c_a17mo => Lens' c_a17mo Int
+ Data.Aviation.Casr.Logbook.Reports.Meta.ExpenseReport: simulatorFlightTotal :: HasExpenseReport c_a17ni => Lens' c_a17ni Int
Files
- casr-logbook.cabal +1/−1
- changelog +4/−0
- src/Data/Aviation/Casr/Logbook/Html/Html.hs +6/−6
casr-logbook.cabal view
@@ -1,5 +1,5 @@ name: casr-logbook-version: 0.5.2+version: 0.5.3 license: OtherLicense license-file: LICENSE author: Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ>
changelog view
@@ -1,3 +1,7 @@+0.5.3++* Fix show on digits.+ 0.5.2 * `Semigroup` instance for later GHC versions(2).
src/Data/Aviation/Casr/Logbook/Html/Html.hs view
@@ -47,7 +47,7 @@ import Control.Applicative((*>)) import Control.Category((.), id)-import Control.Lens((^.))+import Control.Lens((^.), ( # )) import Control.Monad(when, (=<<), (>>=)) import Data.Aviation.Casr.Logbook.Types( arn@@ -94,7 +94,7 @@ ) import Data.Bool(not) import Data.Char(toUpper)-import Data.Digit(DecDigit)+import Data.Digit(DecDigit, charDecimal) import Data.Eq((==)) import Data.Foldable(fold, sequence_, mapM_, null) import Data.Function(($))@@ -151,7 +151,7 @@ TimeAmount -> String strTimeAmount (TimeAmount h x) =- show h <> "." <> show x+ show h <> "." <> [charDecimal # x] strEngine :: Engine@@ -228,7 +228,7 @@ do li_ [id_ "aviatorarn"] $ do span_ [class_ "key"] "ARN: " span_ [class_ "value"] $- fromString (a >>= show)+ fromString (a >>= (\d -> [charDecimal # d])) htmlAviatorDob :: Maybe Day@@ -269,7 +269,7 @@ " " fromString s when (not . null $ a) $ " "- fromString (a >>= show)+ fromString (a >>= (\d -> [charDecimal # d])) when (not . null $ r) $ " " htmlRatingsShort r @@ -651,7 +651,7 @@ , " " , a ^. surname , " ("- , show =<< (a ^. arn)+ , (\d -> [charDecimal # d]) =<< (a ^. arn) , ")" ])