diff options
Diffstat (limited to 'lib/Phi/Phi.hs')
-rw-r--r-- | lib/Phi/Phi.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/Phi/Phi.hs b/lib/Phi/Phi.hs index 1fef39b..b517de6 100644 --- a/lib/Phi/Phi.hs +++ b/lib/Phi/Phi.hs @@ -5,6 +5,7 @@ module Phi.Phi ( Phi , DefaultMessage(..) , fromMessage , initPhi + , dupPhi , sendMessage , receiveMessage ) where @@ -26,6 +27,9 @@ fromMessage (Message m) = cast m initPhi :: IO Phi initPhi = liftM Phi newChan +dupPhi :: Phi -> IO Phi +dupPhi (Phi chan) = liftM Phi $ dupChan chan + sendMessage :: (Typeable a, Show a) => Phi -> a -> IO () sendMessage (Phi chan) = writeChan chan . Message |