blob: c8d264a381fc9a9554906082acec1fdc36b35446 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
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
|
