diff options
author | 2013-01-26 17:09:33 +1100 | |
---|---|---|
committer | 2013-01-26 17:09:33 +1100 | |
commit | dc60216eb8fe919acf7ab3984a5f0bf0e0193f6b (patch) | |
tree | 7fb8c8bd0189f1868e732fc1c6047df933333ecf /Assistant/Types/ThreadName.hs | |
parent | f0f97334d017eac6d1693bac90c772022fa57aa7 (diff) |
webapp: Now allows restarting any threads that crash.
Diffstat (limited to 'Assistant/Types/ThreadName.hs')
-rw-r--r-- | Assistant/Types/ThreadName.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/Assistant/Types/ThreadName.hs b/Assistant/Types/ThreadName.hs new file mode 100644 index 000000000..c8d264a38 --- /dev/null +++ b/Assistant/Types/ThreadName.hs @@ -0,0 +1,14 @@ +{- name of a thread + - + - Copyright 2012 Joey Hess <joey@kitenet.net> + - + - Licensed under the GNU GPL version 3 or higher. + -} + +module Assistant.Types.ThreadName where + +newtype ThreadName = ThreadName String + deriving (Eq, Read, Show, Ord) + +fromThreadName :: ThreadName -> String +fromThreadName (ThreadName n) = n |