casr-logbook-html 0.0.2 → 0.0.3
raw patch · 3 files changed
+9/−5 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
casr-logbook-html.cabal view
@@ -1,5 +1,5 @@ name: casr-logbook-html-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++* Fix `id` name in `a` tags.+ 0.0.2 * Use `casr-logbook-types` and not `casr-logbook`.
src/Data/Aviation/Casr/Logbook/Html/Html.hs view
@@ -556,7 +556,7 @@ , "-" , e ^. flightpath . flightEnd . point ]- in do a_ [id_ (Text.pack ('#' : lk))] ""+ in do a_ [id_ (Text.pack lk)] "" a_ [href_ (Text.pack ('#' : lk))] . span_ [class_ "entrytag"] $ "FLT" htmlEntryTag (SimulatorFlightEntry e _) =@@ -567,7 +567,7 @@ , "_" , e ^. simulatortype ]- in do a_ [id_ (Text.pack ('#' : lk))] ""+ in do a_ [id_ (Text.pack lk)] "" a_ [href_ (Text.pack ('#' : lk))] . span_ [class_ "entrytag"] $ "SIM" htmlEntryTag (ExamEntry e _) = let lk = space2dot . concat $@@ -577,7 +577,7 @@ , "_" , show (e ^. examTime . daytime) ]- in do a_ [id_ (Text.pack ('#' : lk))] ""+ in do a_ [id_ (Text.pack lk)] "" a_ [href_ (Text.pack ('#' : lk))] . span_ [class_ "entrytag"] $ "EXM" htmlEntryTag (BriefingEntry e _) = let lk = space2dot . concat $@@ -587,7 +587,7 @@ , "_" , show (e ^. briefingTime . daytime) ]- in do a_ [id_ (Text.pack ('#' : lk))] ""+ in do a_ [id_ (Text.pack lk)] "" a_ [href_ (Text.pack ('#' : lk))] . span_ [class_ "entrytag"] $ "BRF" htmlEntry ::