git-annex/Types/UUID.hs

{- git-annex UUID type
 -
 - Copyright 2011 Joey Hess <id@joeyh.name>
 -
 - Licensed under the GNU GPL version 3 or higher.
 -}

module Types.UUID where

import qualified Data.Map as M
import qualified Data.UUID as U
import Data.Maybe

-- A UUID is either an arbitrary opaque string, or UUID info may be missing.
data UUID = NoUUID | UUID String
	deriving (Eq, Ord, Show, Read)

fromUUID :: UUID -> String
fromUUID (UUID u) = u
fromUUID NoUUID = ""

toUUID :: String -> UUID
toUUID [] = NoUUID
toUUID s = UUID s

isUUID :: String -> Bool
isUUID = isJust . U.fromString

type UUIDMap = M.Map UUID String
better types allowed breaking module dep loop 2011-06-01 23:10:38 +00:00			`{- git-annex UUID type`
			`-`
update my email address and homepage url 2015-01-21 16:50:09 +00:00			`- Copyright 2011 Joey Hess <id@joeyh.name>`
better types allowed breaking module dep loop 2011-06-01 23:10:38 +00:00			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`

rename modules for data types into Types/ directory 2011-06-02 01:56:04 +00:00			`module Types.UUID where`
better types allowed breaking module dep loop 2011-06-01 23:10:38 +00:00
add ConfigMonitor thread Monitors git-annex branch for changes, which are noticed by the Merger thread whenever the branch ref is changed (either due to an incoming push, or a local change), and refreshes cached config values for modified config files. Rate limited to run no more often than once per minute. This is important because frequent git-annex branch changes happen when files are being added, or transferred, etc. A primary use case is that, when preferred content changes are made, and get pushed to remotes, the remotes start honoring those settings. Other use cases include propigating repository description and trust changes to remotes, and learning when a remote has added a new special remote, so the webapp can present the GUI to enable that special remote locally. Also added a uuid.log cache. All other config files already had caches. 2012-10-20 20:37:06 +00:00			`import qualified Data.Map as M`
reinit: New command that can initialize a new reposotory using the configuration of a previously known repository. Useful if a repository got deleted and you want to clone it back the way it was. 2014-04-16 00:13:35 +00:00			`import qualified Data.UUID as U`
			`import Data.Maybe`
add ConfigMonitor thread Monitors git-annex branch for changes, which are noticed by the Merger thread whenever the branch ref is changed (either due to an incoming push, or a local change), and refreshes cached config values for modified config files. Rate limited to run no more often than once per minute. This is important because frequent git-annex branch changes happen when files are being added, or transferred, etc. A primary use case is that, when preferred content changes are made, and get pushed to remotes, the remotes start honoring those settings. Other use cases include propigating repository description and trust changes to remotes, and learning when a remote has added a new special remote, so the webapp can present the GUI to enable that special remote locally. Also added a uuid.log cache. All other config files already had caches. 2012-10-20 20:37:06 +00:00
add a UUID type Should have done this a long time ago. 2011-11-07 18:46:01 +00:00			`-- A UUID is either an arbitrary opaque string, or UUID info may be missing.`
			`data UUID = NoUUID \| UUID String`
add routes to pause/start/cancel transfers This commit includes a paydown on technical debt incurred two years ago, when I didn't know that it was bad to make custom Read and Show instances for types. As the routes need Read and Show for Transfer, which includes a Key, and deriving my own Read instance of key was not practical, I had to finally clean that up. So the compact Key read and show functions are now file2key and key2file, and Read and Show are now derived instances. Changed all code that used the old instances, compiler checked. (There were a few places, particularly in Command.Unused, and the test suite where the Show instance continue to be used for legitimate comparisons; ie show key_x == show key_y (though really in a bloom filter)) 2012-08-08 20:06:01 +00:00			`deriving (Eq, Ord, Show, Read)`
add a UUID type Should have done this a long time ago. 2011-11-07 18:46:01 +00:00
clean up read/show abuse Avoid ever using read to parse a non-haskell formatted input string. show :: Key is arguably still show abuse, but displaying Keys as filenames is just too useful to give up. 2011-11-08 03:21:22 +00:00			`fromUUID :: UUID -> String`
			`fromUUID (UUID u) = u`
			`fromUUID NoUUID = ""`
add a UUID type Should have done this a long time ago. 2011-11-07 18:46:01 +00:00
clean up read/show abuse Avoid ever using read to parse a non-haskell formatted input string. show :: Key is arguably still show abuse, but displaying Keys as filenames is just too useful to give up. 2011-11-08 03:21:22 +00:00			`toUUID :: String -> UUID`
			`toUUID [] = NoUUID`
			`toUUID s = UUID s`
add ConfigMonitor thread Monitors git-annex branch for changes, which are noticed by the Merger thread whenever the branch ref is changed (either due to an incoming push, or a local change), and refreshes cached config values for modified config files. Rate limited to run no more often than once per minute. This is important because frequent git-annex branch changes happen when files are being added, or transferred, etc. A primary use case is that, when preferred content changes are made, and get pushed to remotes, the remotes start honoring those settings. Other use cases include propigating repository description and trust changes to remotes, and learning when a remote has added a new special remote, so the webapp can present the GUI to enable that special remote locally. Also added a uuid.log cache. All other config files already had caches. 2012-10-20 20:37:06 +00:00
reinit: New command that can initialize a new reposotory using the configuration of a previously known repository. Useful if a repository got deleted and you want to clone it back the way it was. 2014-04-16 00:13:35 +00:00			`isUUID :: String -> Bool`
			`isUUID = isJust . U.fromString`

add ConfigMonitor thread Monitors git-annex branch for changes, which are noticed by the Merger thread whenever the branch ref is changed (either due to an incoming push, or a local change), and refreshes cached config values for modified config files. Rate limited to run no more often than once per minute. This is important because frequent git-annex branch changes happen when files are being added, or transferred, etc. A primary use case is that, when preferred content changes are made, and get pushed to remotes, the remotes start honoring those settings. Other use cases include propigating repository description and trust changes to remotes, and learning when a remote has added a new special remote, so the webapp can present the GUI to enable that special remote locally. Also added a uuid.log cache. All other config files already had caches. 2012-10-20 20:37:06 +00:00			`type UUIDMap = M.Map UUID String`