Skip to content

Commit 4658713

Browse files
committed
Fix tests
1 parent 0af7a24 commit 4658713

File tree

3 files changed

+9
-8
lines changed

3 files changed

+9
-8
lines changed

Generate.hs

+4-4
Original file line numberDiff line numberDiff line change
@@ -34,11 +34,11 @@ main = do
3434
,"import GHC.IO.Encoding.Failure ( CodingFailureMode(..) )"
3535
,"import GHC.IO.Encoding.UTF16 ( mkUTF16le )"
3636
,"import GHC.IO.Encoding.UTF8 ( mkUTF8 )"
37-
,"import System.OsString.Internal.Types.Hidden"
38-
,"import System.OsPath.Encoding.Internal.Hidden"
37+
,"import System.OsString.Internal.Types"
38+
,"import System.OsPath.Encoding.Internal"
3939
,"import qualified Data.Char as C"
40-
,"import qualified System.OsPath.Data.ByteString.Short.Hidden as SBS"
41-
,"import qualified System.OsPath.Data.ByteString.Short.Word16.Hidden as SBS16"
40+
,"import qualified System.OsPath.Data.ByteString.Short as SBS"
41+
,"import qualified System.OsPath.Data.ByteString.Short.Word16 as SBS16"
4242
,"import qualified System.FilePath.Windows as W"
4343
,"import qualified System.FilePath.Posix as P"
4444
#ifdef GHC_MAKE

System/FilePath/Internal.hs

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
{-# LANGUAGE PatternGuards #-}
22
{-# LANGUAGE TypeApplications #-}
3+
{-# LANGUAGE MultiWayIf #-}
34

45
-- This template expects CPP definitions for:
56
-- MODULE_NAME = Posix | Windows

tests/filepath-tests/TestGen.hs

+4-4
Original file line numberDiff line numberDiff line change
@@ -14,11 +14,11 @@ import Data.String
1414
import GHC.IO.Encoding.Failure ( CodingFailureMode(..) )
1515
import GHC.IO.Encoding.UTF16 ( mkUTF16le )
1616
import GHC.IO.Encoding.UTF8 ( mkUTF8 )
17-
import System.OsString.Internal.Types.Hidden
18-
import System.OsPath.Encoding.Internal.Hidden
17+
import System.OsString.Internal.Types
18+
import System.OsPath.Encoding.Internal
1919
import qualified Data.Char as C
20-
import qualified System.OsPath.Data.ByteString.Short.Hidden as SBS
21-
import qualified System.OsPath.Data.ByteString.Short.Word16.Hidden as SBS16
20+
import qualified System.OsPath.Data.ByteString.Short as SBS
21+
import qualified System.OsPath.Data.ByteString.Short.Word16 as SBS16
2222
import qualified System.FilePath.Windows as W
2323
import qualified System.FilePath.Posix as P
2424
import qualified System.OsPath.Windows as AFP_W

0 commit comments

Comments
 (0)