1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
{-
Copyright (C) 2006-2008 John Goerzen <jgoerzen@complete.org>
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
-}
module Types where
data Action = Print | PrintFull | Print0 | Exec String | Hardlink | Symlink
deriving (Eq, Ord, Read, Show)
data RunInfo =
RunInfo {binSize :: Integer,
firstBinSize :: Integer,
preserveOrder :: Bool,
sortFiles :: Bool,
deepLinks :: Bool,
readNull :: Bool,
binFmt :: String,
action :: Action}
deriving (Eq, Ord, Read, Show)
-- (Size, filepath)
type Result = (Integer, FilePath)
|
