git-annex/Types/NumCopies.hs

{- git-annex numcopies type
 -
 - Copyright 2014 Joey Hess <id@joeyh.name>
 -
 - 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
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. 2014-01-21 20:08:19 +00:00			`{- git-annex numcopies type`
			`-`
update my email address and homepage url 2015-01-21 16:50:09 +00:00			`- Copyright 2014 Joey Hess <id@joeyh.name>`
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. 2014-01-21 20:08:19 +00:00			`-`
			`- 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`