793ddecd4bAnd follow-on changes. Note that relatedTemplate was changed to operate on a RawFilePath, and so when it counts the length, it is now the number of bytes, not the number of code points. This will just make it truncate shorter strings in some cases, the truncation is still unicode aware. When not building with the OsPath flag, toOsPath . fromRawFilePath and fromRawFilePath . fromOsPath do extra conversions back and forth between String and ByteString. That overhead could be avoided, but that's the non-optimised build mode, so didn't bother. Sponsored-by: unqueued
57 lines
1.3 KiB
Haskell
57 lines
1.3 KiB
Haskell
{- OsPath utilities
|
|
-
|
|
- Copyright 2025 Joey Hess <id@joeyh.name>
|
|
-
|
|
- License: BSD-2-clause
|
|
-}
|
|
|
|
{-# LANGUAGE CPP #-}
|
|
{-# LANGUAGE PackageImports #-}
|
|
{-# OPTIONS_GHC -fno-warn-tabs #-}
|
|
|
|
module Utility.OsPath (
|
|
OsPath,
|
|
OsString,
|
|
toOsPath,
|
|
fromOsPath,
|
|
) where
|
|
|
|
import Utility.FileSystemEncoding
|
|
|
|
#ifdef WITH_OSPATH
|
|
import System.OsPath
|
|
import "os-string" System.OsString.Internal.Types
|
|
import qualified Data.ByteString.Short as S
|
|
|
|
{- Unlike System.OsString.fromBytes, on Windows this does not ensure a
|
|
- valid USC-2LE encoding. The input ByteString must be in a valid encoding
|
|
- already or uses of the OsPath will fail. -}
|
|
toOsPath :: RawFilePath -> OsPath
|
|
#if defined(mingw32_HOST_OS)
|
|
toOsPath = OsString . WindowsString . S.toShort
|
|
#else
|
|
toOsPath = OsString . PosixString . S.toShort
|
|
#endif
|
|
|
|
fromOsPath :: OsPath -> RawFilePath
|
|
#if defined(mingw32_HOST_OS)
|
|
fromOsPath = S.fromShort . getWindowsString . getOsString
|
|
#else
|
|
fromOsPath = S.fromShort . getPosixString . getOsString
|
|
#endif
|
|
|
|
#else
|
|
{- When not building with WITH_OSPATH, use FilePath. This allows
|
|
- using functions from legacy FilePath libraries interchangeably with
|
|
- newer OsPath libraries.
|
|
-}
|
|
type OsPath = FilePath
|
|
|
|
type OsString = String
|
|
|
|
toOsPath :: RawFilePath -> OsPath
|
|
toOsPath = fromRawFilePath
|
|
|
|
fromOsPath :: OsPath -> RawFilePath
|
|
fromOsPath = toRawFilePath
|
|
#endif
|