diff --git a/aip.cabal b/aip.cabal
--- a/aip.cabal
+++ b/aip.cabal
@@ -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ɐɥ>
diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -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.
diff --git a/src/Data/Aviation/Aip/AipDocument.hs b/src/Data/Aviation/Aip/AipDocument.hs
--- a/src/Data/Aviation/Aip/AipDocument.hs
+++ b/src/Data/Aviation/Aip/AipDocument.hs
@@ -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) =
diff --git a/src/Data/Aviation/Aip/Processing.hs b/src/Data/Aviation/Aip/Processing.hs
--- a/src/Data/Aviation/Aip/Processing.hs
+++ b/src/Data/Aviation/Aip/Processing.hs
@@ -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"