Merge pull request #4583 from fgaz/patch-1

an empty target is an empty string
haskell · Jul 5, 2017 · d4d4222 · d4d4222
2 parents 733cd1c + 8d14c4d
commit d4d4222
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/cabal-install/Distribution/Client/TargetSelector.hs b/cabal-install/Distribution/Client/TargetSelector.hs
@@ -352,9 +352,10 @@ showTargetString = intercalate ":" . components
 
 showTargetSelector :: Package p => TargetSelector p -> String
 showTargetSelector ts =
-  let (t':_) = [ t | ql <- [QL1 .. QLFull]
-                   , t  <- renderTargetSelector ql ts ]
-   in showTargetString (forgetFileStatus t')
+  case [ t | ql <- [QL1 .. QLFull]
+           , t  <- renderTargetSelector ql ts ]
+  of (t':_) -> showTargetString (forgetFileStatus t')
+     [] -> ""
 
 showTargetSelectorKind :: TargetSelector a -> String
 showTargetSelectorKind bt = case bt of