Docs and modest safety improvements.

Signed-off-by: Edward Z. Yang <[email protected]>
ezyang · Aug 5, 2016 · 30e1a65 · 30e1a65
1 parent 78833ef
commit 30e1a65
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/cabal-install/Distribution/Client/BuildTarget.hs b/cabal-install/Distribution/Client/BuildTarget.hs
@@ -8,6 +8,10 @@
 -- Maintainer  :  [email protected]
 --
 -- Handling for user-specified build targets
+-- Unlike "Distribution.Simple.BuildTarget" these build
+-- targets also handle package qualification (so, up to
+-- four levels of qualification, as opposed to the former's
+-- three.)
 -----------------------------------------------------------------------------
 module Distribution.Client.BuildTarget (
 
@@ -433,7 +437,9 @@ showUserBuildTarget = intercalate ":" . components
 
 showBuildTarget :: QualLevel -> BuildTarget PackageInfo -> String
 showBuildTarget ql = showUserBuildTarget . forgetFileStatus
-                   . head . renderBuildTarget ql
+                   . hd . renderBuildTarget ql
+  where hd [] = error "showBuildTarget: head"
+        hd (x:_) = x
 
 
 -- ------------------------------------------------------------