diff options
author | Joey Hess <joey@kitenet.net> | 2014-01-21 16:08:19 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-01-21 16:08:59 -0400 |
commit | d5f7fb27aad3e2e9c4bebb9ccd5577af8deb25c7 (patch) | |
tree | 838837e3112942fcf0f82cfc7f68e62a6f4e7a6e /Types | |
parent | 9a8709f064c7608859b3155a752093b29cd8ab98 (diff) |
reorganize numcopies code (no behavior changes)
Move stuff into Logs.NumCopies. Add a NumCopies newtype.
Better names for various serialization classes that are specific to one
thing or another.
Diffstat (limited to 'Types')
-rw-r--r-- | Types/NumCopies.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/Types/NumCopies.hs b/Types/NumCopies.hs new file mode 100644 index 000000000..b93fcf968 --- /dev/null +++ b/Types/NumCopies.hs @@ -0,0 +1,14 @@ +{- 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 |