blob: 57c704dad5417a6a558ed08764e1743fb18c4f59 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{- name of a thread
-
- Copyright 2012 Joey Hess <id@joeyh.name>
-
- 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
|
