15 lines
288 B
Haskell
15 lines
288 B
Haskell
|
{- git-annex numcopies type
|
||
|
|
-
|
||
|
|
- Copyright 2014 Joey Hess <joey@kitenet.net>
|
||
|
|
-
|
||
|
|
- Licensed under the GNU GPL version 3 or higher.
|
||
|
|
-}
|
||
|
|
|
||
|
|
module Types.NumCopies where
|
||
|
|
|
||
|
|
newtype NumCopies = NumCopies Int
|
||
|
|
deriving (Ord, Eq)
|
||
|
|
|
||
|
|
fromNumCopies :: NumCopies -> Int
|
||
|
|
fromNumCopies (NumCopies n) = n
|