Ticket #1074: Test.hs

File Test.hs, 1.0 KB (added by duncan, 6 years ago)

test case

Line 
1module Test where
2
3import qualified System.FilePath as FilePath.Native
4         ( joinPath, splitDirectories )
5import qualified System.FilePath.Posix as FilePath.Posix
6         ( joinPath, splitDirectories )
7import qualified System.FilePath.Windows as FilePath.Windows
8         ( joinPath )
9
10data TarPath = TarPath FilePath -- path name, 100 characters max.
11                       FilePath -- path prefix, 155 characters max.
12
13fromTarPath, fromTarPathToPosixPath
14           , fromTarPathToWindowsPath :: TarPath -> FilePath
15
16fromTarPath (TarPath name prefix) =
17  FilePath.Native.joinPath $ FilePath.Posix.splitDirectories prefix
18                          ++ FilePath.Posix.splitDirectories name
19
20fromTarPathToPosixPath (TarPath name prefix) =
21  FilePath.Posix.joinPath $ FilePath.Posix.splitDirectories prefix
22                         ++ FilePath.Posix.splitDirectories name
23
24fromTarPathToWindowsPath (TarPath name prefix) =
25  FilePath.Windows.joinPath $ FilePath.Posix.splitDirectories prefix
26                           ++ FilePath.Posix.splitDirectories name