[Git][haskell-team/DHG_packages][master] path: Add missing test files to fix FTBFS

[Scott Talbert (@swt2c)]

Scott Talbert pushed to branch master at Debian Haskell Group / DHG_packages


Commits:
97da329a by Scott Talbert at 2026-02-10T22:52:29-05:00
path: Add missing test files to fix FTBFS

- - - - -


3 changed files:

- p/haskell-path/debian/changelog
- + p/haskell-path/debian/patches/add-missing-test-files
- p/haskell-path/debian/patches/series


Changes:

=====================================
p/haskell-path/debian/changelog
=====================================
@@ -1,3 +1,9 @@
+haskell-path (0.9.6-3) unstable; urgency=medium
+
+  * Add missing test files to fix FTBFS
+
+ -- Scott Talbert <swt at techie.net>  Tue, 10 Feb 2026 22:48:49 -0500
+
 haskell-path (0.9.6-2) unstable; urgency=medium
 
   * Patch for newer dependencies.


=====================================
p/haskell-path/debian/patches/add-missing-test-files
=====================================
@@ -0,0 +1,106 @@
+Index: b/test/TH/Include.hs
+===================================================================
+--- /dev/null
++++ b/test/TH/Include.hs
+@@ -0,0 +1,46 @@
++-- This template expects CPP definitions for:
++--     PLATFORM_NAME = Posix | Windows
++
++{-# LANGUAGE MultiParamTypeClasses #-}
++{-# LANGUAGE QuasiQuotes #-}
++{-# LANGUAGE TemplateHaskell #-}
++{-# OPTIONS_GHC -Wno-unused-top-binds #-}
++
++-- | Test functions to check the template haskell bits.
++module TH.PLATFORM_NAME where
++
++import qualified Language.Haskell.TH.Syntax as TH
++
++import Path.Internal.PLATFORM_NAME
++import Path.PLATFORM_NAME
++
++-- | This is a helper type class that checks that splices produce a 'Path' with
++--   all type variables instantiated to a type.
++--   This ensures that bugs like https://github.com/commercialhaskell/path/issues/159
++--   cannot happen.
++class CheckInstantiated a b where
++    checkInstantiated :: Path a b -> FilePath
++    checkInstantiated = toFilePath
++
++instance CheckInstantiated Abs Dir
++instance CheckInstantiated Abs File
++instance CheckInstantiated Rel Dir
++instance CheckInstantiated Rel File
++
++qqRelDir :: FilePath
++qqRelDir = checkInstantiated [reldir|name/|]
++
++qqRelFile :: FilePath
++qqRelFile = checkInstantiated [relfile|name|]
++
++thRelDir :: FilePath
++thRelDir = checkInstantiated $(mkRelDir "name/")
++
++thRelFile :: FilePath
++thRelFile = checkInstantiated $(mkRelFile "name")
++
++liftRelDir :: FilePath
++liftRelDir = checkInstantiated $(TH.lift (Path "name/" :: Path Rel Dir))
++
++liftRelFile :: FilePath
++liftRelFile = checkInstantiated $(TH.lift (Path "name" :: Path Rel File))
+Index: b/test-ospath/TH/Include.hs
+===================================================================
+--- /dev/null
++++ b/test-ospath/TH/Include.hs
+@@ -0,0 +1,50 @@
++-- This template expects CPP definitions for:
++--     PLATFORM_NAME = Posix | Windows
++--     PLATFORM_PATH = PosixPath | WindowsPath
++
++{-# LANGUAGE MultiParamTypeClasses #-}
++{-# LANGUAGE QuasiQuotes #-}
++{-# LANGUAGE TemplateHaskell #-}
++
++{-# OPTIONS_GHC -Wno-unused-top-binds #-}
++
++-- | Test functions to check the template haskell bits.
++module TH.PLATFORM_NAME where
++
++import qualified Language.Haskell.TH.Syntax as TH
++import System.OsPath.PLATFORM_NAME (PLATFORM_PATH)
++
++import OsPath.Internal.PLATFORM_NAME
++import OsPath.PLATFORM_NAME
++import qualified System.OsString.Compat.PLATFORM_NAME as OsString
++
++-- | This is a helper type class that checks that splices produce a 'Path' with
++--   all type variables instantiated to a type.
++--   This ensures that bugs like https://github.com/commercialhaskell/path/issues/159
++--   cannot happen.
++class CheckInstantiated a b where
++    checkInstantiated :: Path a b -> PLATFORM_PATH
++    checkInstantiated = toOsPath
++
++instance CheckInstantiated Abs Dir
++instance CheckInstantiated Abs File
++instance CheckInstantiated Rel Dir
++instance CheckInstantiated Rel File
++
++qqRelDir :: PLATFORM_PATH
++qqRelDir = checkInstantiated [reldir|name/|]
++
++qqRelFile :: PLATFORM_PATH
++qqRelFile = checkInstantiated [relfile|name|]
++
++thRelDir :: PLATFORM_PATH
++thRelDir = checkInstantiated $(mkRelDir [OsString.pstr|name/|])
++
++thRelFile :: PLATFORM_PATH
++thRelFile = checkInstantiated $(mkRelFile [OsString.pstr|name|])
++
++liftRelDir :: PLATFORM_PATH
++liftRelDir = checkInstantiated $(TH.lift (Path [OsString.pstr|name/|] :: Path Rel Dir))
++
++liftRelFile :: PLATFORM_PATH
++liftRelFile = checkInstantiated $(TH.lift (Path [OsString.pstr|name|] :: Path Rel File))


=====================================
p/haskell-path/debian/patches/series
=====================================
@@ -1 +1,2 @@
 newer-deps
+add-missing-test-files



View it on GitLab: https://salsa.debian.org/haskell-team/DHG_packages/-/commit/97da329ad354449fa05082df668dc30b1a7561ec

-- 
View it on GitLab: https://salsa.debian.org/haskell-team/DHG_packages/-/commit/97da329ad354449fa05082df668dc30b1a7561ec
You're receiving this email because of your account on salsa.debian.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://alioth-lists.debian.net/pipermail/pkg-haskell-commits/attachments/20260211/e5d7c814/attachment-0001.htm>