diff options
Diffstat (limited to 'Assistant/Threads/Transferrer.hs')
-rw-r--r-- | Assistant/Threads/Transferrer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/Transferrer.hs b/Assistant/Threads/Transferrer.hs index 399e732be..0acadec4b 100644 --- a/Assistant/Threads/Transferrer.hs +++ b/Assistant/Threads/Transferrer.hs @@ -25,7 +25,7 @@ import System.Process (create_group) {- Dispatches transfers from the queue. -} transfererThread :: NamedThread -transfererThread = NamedThread "Transferr" $ do +transfererThread = namedThread "Transferrer" $ do program <- liftIO readProgramFile forever $ inTransferSlot $ maybe (return Nothing) (uncurry $ startTransfer program) |