File: Types.hs

package info (click to toggle)
datapacker 1.0.2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 128 kB
  • sloc: haskell: 228; makefile: 78
file content (27 lines) | stat: -rw-r--r-- 814 bytes parent folder | download | duplicates (4)
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)