aip 0.1.1 → 0.1.2
raw patch · 4 files changed
+12/−6 lines, 4 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Data.Aviation.Aip.AipCon: instance (Data.Aviation.Aip.AipCon.AipCon a ~ r) => Control.Lens.Wrapped.Rewrapped (Data.Aviation.Aip.AipCon.AipCon b) r
- Data.Aviation.Aip.AipDate: instance (Data.Aviation.Aip.AipDate.AipDate ~ a) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.AipDate.AipDate a
- Data.Aviation.Aip.AipDocuments: instance (Data.Aviation.Aip.AipDocuments.AipDocuments book charts sup_aic dap ersa ~ x) => Control.Lens.Wrapped.Rewrapped (Data.Aviation.Aip.AipDocuments.AipDocuments book charts sup_aic dap ersa) x
- Data.Aviation.Aip.Aip_SUP_and_AICs: instance (Data.Aviation.Aip.Aip_SUP_and_AICs.Aip_SUP_and_AICs ~ x) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.Aip_SUP_and_AICs.Aip_SUP_and_AICs x
- Data.Aviation.Aip.Amendment: instance (Data.Aviation.Aip.Amendment.Amendment ~ a) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.Amendment.Amendment a
- Data.Aviation.Aip.DAPDocs: instance (Data.Aviation.Aip.DAPDocs.DAPDocs ~ x) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.DAPDocs.DAPDocs x
- Data.Aviation.Aip.DAPEntries: instance (Data.Aviation.Aip.DAPEntries.DAPEntries ~ a) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.DAPEntries.DAPEntries a
- Data.Aviation.Aip.DocumentNumber: instance (Data.Aviation.Aip.DocumentNumber.DocumentNumber ~ a) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.DocumentNumber.DocumentNumber a
- Data.Aviation.Aip.ErsaAerodromes: instance (Data.Aviation.Aip.ErsaAerodromes.ErsaAerodromes ~ x) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.ErsaAerodromes.ErsaAerodromes x
- Data.Aviation.Aip.Href: instance (Data.Aviation.Aip.Href.Href ~ a) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.Href.Href a
- Data.Aviation.Aip.ListItemLinks: instance (Data.Aviation.Aip.ListItemLinks.ListItemLinks ~ x) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.ListItemLinks.ListItemLinks x
- Data.Aviation.Aip.ListItemLinks1: instance (Data.Aviation.Aip.ListItemLinks1.ListItemLinks1 ~ x) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.ListItemLinks1.ListItemLinks1 x
- Data.Aviation.Aip.OnAipRecords: instance (Data.Aviation.Aip.OnAipRecords.OnAipRecords f a ~ x) => Control.Lens.Wrapped.Rewrapped (Data.Aviation.Aip.OnAipRecords.OnAipRecords g k) x
- Data.Aviation.Aip.PerHref: instance (Data.Aviation.Aip.PerHref.PerHref f a ~ x) => Control.Lens.Wrapped.Rewrapped (Data.Aviation.Aip.PerHref.PerHref g k) x
- Data.Aviation.Aip.Title: instance (Data.Aviation.Aip.Title.Title ~ a) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.Title.Title a
- Data.Aviation.Aip.Txt: instance (Data.Aviation.Aip.Txt.Txt ~ a) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.Txt.Txt a
+ Data.Aviation.Aip.AipCon: instance (Data.Aviation.Aip.AipCon.AipCon a Data.Type.Equality.~ r) => Control.Lens.Wrapped.Rewrapped (Data.Aviation.Aip.AipCon.AipCon b) r
+ Data.Aviation.Aip.AipDate: instance (Data.Aviation.Aip.AipDate.AipDate Data.Type.Equality.~ a) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.AipDate.AipDate a
+ Data.Aviation.Aip.AipDocuments: instance (Data.Aviation.Aip.AipDocuments.AipDocuments book charts sup_aic dap ersa Data.Type.Equality.~ x) => Control.Lens.Wrapped.Rewrapped (Data.Aviation.Aip.AipDocuments.AipDocuments book charts sup_aic dap ersa) x
+ Data.Aviation.Aip.Aip_SUP_and_AICs: instance (Data.Aviation.Aip.Aip_SUP_and_AICs.Aip_SUP_and_AICs Data.Type.Equality.~ x) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.Aip_SUP_and_AICs.Aip_SUP_and_AICs x
+ Data.Aviation.Aip.Amendment: instance (Data.Aviation.Aip.Amendment.Amendment Data.Type.Equality.~ a) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.Amendment.Amendment a
+ Data.Aviation.Aip.DAPDocs: instance (Data.Aviation.Aip.DAPDocs.DAPDocs Data.Type.Equality.~ x) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.DAPDocs.DAPDocs x
+ Data.Aviation.Aip.DAPEntries: instance (Data.Aviation.Aip.DAPEntries.DAPEntries Data.Type.Equality.~ a) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.DAPEntries.DAPEntries a
+ Data.Aviation.Aip.DocumentNumber: instance (Data.Aviation.Aip.DocumentNumber.DocumentNumber Data.Type.Equality.~ a) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.DocumentNumber.DocumentNumber a
+ Data.Aviation.Aip.ErsaAerodromes: instance (Data.Aviation.Aip.ErsaAerodromes.ErsaAerodromes Data.Type.Equality.~ x) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.ErsaAerodromes.ErsaAerodromes x
+ Data.Aviation.Aip.Href: instance (Data.Aviation.Aip.Href.Href Data.Type.Equality.~ a) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.Href.Href a
+ Data.Aviation.Aip.ListItemLinks: instance (Data.Aviation.Aip.ListItemLinks.ListItemLinks Data.Type.Equality.~ x) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.ListItemLinks.ListItemLinks x
+ Data.Aviation.Aip.ListItemLinks1: instance (Data.Aviation.Aip.ListItemLinks1.ListItemLinks1 Data.Type.Equality.~ x) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.ListItemLinks1.ListItemLinks1 x
+ Data.Aviation.Aip.OnAipRecords: instance (Data.Aviation.Aip.OnAipRecords.OnAipRecords f a Data.Type.Equality.~ x) => Control.Lens.Wrapped.Rewrapped (Data.Aviation.Aip.OnAipRecords.OnAipRecords g k) x
+ Data.Aviation.Aip.PerHref: instance (Data.Aviation.Aip.PerHref.PerHref f a Data.Type.Equality.~ x) => Control.Lens.Wrapped.Rewrapped (Data.Aviation.Aip.PerHref.PerHref g k) x
+ Data.Aviation.Aip.Title: instance (Data.Aviation.Aip.Title.Title Data.Type.Equality.~ a) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.Title.Title a
+ Data.Aviation.Aip.Txt: instance (Data.Aviation.Aip.Txt.Txt Data.Type.Equality.~ a) => Control.Lens.Wrapped.Rewrapped Data.Aviation.Aip.Txt.Txt a
- Data.Aviation.Aip.AipRecords: AipRecords :: SHA1 -> (NonEmpty AipRecord) -> AipRecords
+ Data.Aviation.Aip.AipRecords: AipRecords :: SHA1 -> NonEmpty AipRecord -> AipRecords
- Data.Aviation.Aip.DAPDoc: DAPDoc :: (DAPType String) -> Href -> DAPEntries -> DAPDoc
+ Data.Aviation.Aip.DAPDoc: DAPDoc :: DAPType String -> Href -> DAPEntries -> DAPDoc
- Data.Aviation.Aip.ErsaAerodrome: ErsaAerodrome :: String -> Href -> (Maybe Href) -> ErsaAerodrome
+ Data.Aviation.Aip.ErsaAerodrome: ErsaAerodrome :: String -> Href -> Maybe Href -> ErsaAerodrome
Files
- aip.cabal +1/−1
- changelog.md +4/−0
- src/Data/Aviation/Aip/AipDocument.hs +2/−2
- src/Data/Aviation/Aip/Processing.hs +5/−3
aip.cabal view
@@ -1,5 +1,5 @@ name: aip-version: 0.1.1+version: 0.1.2 license: BSD3 license-file: LICENCE author: Queensland Functional Programming Lab <oᴉ˙ldɟb@llǝʞsɐɥ>
changelog.md view
@@ -1,3 +1,7 @@+0.1.2++* Fix bug where DAH was left out of href downloads.+ 0.1.1 * Add post-processing after downloading AIP.
src/Data/Aviation/Aip/AipDocument.hs view
@@ -404,8 +404,8 @@ Aip_SUP_AIC <$> f u <*> _ManyHref f c _ManyHref f (Aip_DAP u d c) = Aip_DAP <$> f u <*> pure d <*> _ManyHref f c- _ManyHref _ (Aip_DAH u c) =- Aip_DAH <$> pure u <*> pure c+ _ManyHref f (Aip_DAH u c) =+ Aip_DAH <$> f u <*> pure c _ManyHref f (Aip_ERSA u d b) = Aip_ERSA <$> f u <*> pure d <*> _ManyHref f b _ManyHref _ (Aip_AandB_Charts d) =
src/Data/Aviation/Aip/Processing.hs view
@@ -35,7 +35,7 @@ import Data.Function(($)) import Data.Functor((<$), (<$>)) import Data.List(intercalate, dropWhile, reverse, drop)-import Data.Maybe(Maybe(Nothing, Just), maybe)+import Data.Maybe(Maybe(Nothing, Just), maybe, fromMaybe) import Data.Ord((<)) import Data.Semigroup((<>)) import Data.String(String)@@ -43,6 +43,7 @@ import Data.Traversable(mapM) import Prelude(Integer, show, round, (*)) import System.Directory(createDirectoryLink, getSymbolicLinkTarget, doesFileExist, doesDirectoryExist, createDirectoryIfMissing, removeFile)+import System.Environment(lookupEnv) import System.Exit(ExitCode) import System.FilePath(FilePath, splitDirectories, isPathSeparator, joinPath, (</>), takeDirectory, splitFileName, makeRelative, splitPath) import System.IO(IO)@@ -173,9 +174,10 @@ do t <- doesDirectoryExist d' if t then- do k <- system'+ do tar <- lookupEnv "TAR_EXE"+ k <- system' [- "tar"+ fromMaybe "tar" tar , "--transform" , quote ("s/" <> z' <> "/" <> z <> "/") , "-C"