Don't break when data-dir is null.

PR haskell#5284 changed things around, and now matchDirFileGlob will break if
it's passed a null directory, which happens to be the default value
for data-dir. Its call sites have been fixed to check for this and to
substitute '.' for an empty path, which is the desired behaviour; in
addition, matchDirFileGlob itself will now warn about this if it's
detected, so that new broken call sites can't sneak in.

Fixes haskell#5318.

Cabal/Distribution/Simple/Glob.hs

@@ -145,6 +145,16 @@ matchDirFileGlob :: Verbosity -> Version -> FilePath -> FilePath -> IO [FilePath
 matchDirFileGlob verbosity version dir filepath = case parseFileGlob version filepath of
   Left err -> die' verbosity $ explainGlobSyntaxError filepath err
   Right pat -> do
+    -- The default data-dir is null. Our callers -should- be
+    -- converting that to '.' themselves, but it's a certainty that
+    -- some future call-site will forget and trigger a really
+    -- hard-to-debug failure if we don't check for that here.
+    when (null dir) $
+      warn verbosity $
+           "Null dir passed to matchDirFileGlob; interpreting it "
+        ++ "as '.'. This is probably an internal error."
+    let dir' = if null dir then "." else dir
+    debug verbosity $ "Expanding glob '" ++ filepath ++ "' in directory '" ++ dir' ++ "'."
     -- This function might be called from the project root with dir as
     -- ".". Walking the tree starting there involves going into .git/
     -- and dist-newstyle/, which is a lot of work for no reward, so
@@ -154,7 +164,7 @@ matchDirFileGlob verbosity version dir filepath = case parseFileGlob version fil
     -- for!
     let (prefixSegments, pat') = splitConstantPrefix pat
         joinedPrefix = joinPath prefixSegments
-    files <- getDirectoryContentsRecursive (dir </> joinedPrefix)
+    files <- getDirectoryContentsRecursive (dir' </> joinedPrefix)
     case filter (fileGlobMatches pat') files of
       []      -> die' verbosity $
            "filepath wildcard '" ++ filepath

Cabal/Distribution/Simple/Install.hs

@@ -235,7 +235,10 @@ copyComponent _ _ _ (CTest _) _ _ = return ()
 installDataFiles :: Verbosity -> PackageDescription -> FilePath -> IO ()
 installDataFiles verbosity pkg_descr destDataDir =
   flip traverse_ (dataFiles pkg_descr) $ \ file -> do
-    let srcDataDir = dataDir pkg_descr
+    let srcDataDirRaw = dataDir pkg_descr
+        srcDataDir = if null srcDataDirRaw
+          then "."
+          else ""
     files <- matchDirFileGlob verbosity (specVersion pkg_descr) srcDataDir file
     let dir = takeDirectory file
     createDirectoryIfMissingVerbose verbosity True (destDataDir </> dir)

Cabal/Distribution/Simple/SrcDist.hs

@@ -209,8 +209,12 @@ listPackageSourcesOrdinary verbosity pkg_descr pps =
     -- Data files.
   , fmap concat
     . for (dataFiles pkg_descr) $ \filename ->
-        fmap (fmap (dataDir pkg_descr </>)) $
-          matchDirFileGlob verbosity (specVersion pkg_descr) (dataDir pkg_descr) filename
+        let srcDataDirRaw = dataDir pkg_descr
+            srcDataDir = if null srcDataDirRaw
+              then "."
+              else ""
+        in fmap (fmap (srcDataDir </>)) $
+             matchDirFileGlob verbosity (specVersion pkg_descr) srcDataDir filename
 
     -- Extra doc files.
   , fmap concat

cabal-testsuite/PackageTests/Regression/T5318/Main.hs

@@ -0,0 +1 @@
+main = putStrLn "hi"

cabal-testsuite/PackageTests/Regression/T5318/empty-data-dir.cabal

@@ -0,0 +1,10 @@
+cabal-version: 2.0
+name: empty-data-dir
+version: 0
+build-type: Simple
+data-files: foo.dat
+
+executable foo
+  default-language: Haskell2010
+  build-depends: base
+  main-is: Main.hs

cabal-testsuite/PackageTests/Regression/T5318/foo.dat

@@ -0,0 +1 @@
+Hello!

cabal-testsuite/PackageTests/Regression/T5318/install.test.hs

@@ -0,0 +1,3 @@
+import Test.Cabal.Prelude
+main = cabalTest $
+  cabal "install" []

cabal-testsuite/PackageTests/Regression/T5318/sdist-list-sources.test.hs

@@ -0,0 +1,7 @@
+import Test.Cabal.Prelude
+main = cabalTest $ do
+  tmpdir <- fmap testTmpDir getTestEnv
+  let fn = tmpdir </> "sources"
+  cabal "sdist" ["--list-sources=" ++ fn]
+  -- --list-sources outputs with slashes on posix and backslashes on Windows. 'normalise' converts our needle to the necessary format.
+  assertFileDoesContain fn $ normalise "foo.dat"