Merge pull request haskell-distributed#78 from BirdseyeSoftware/fix-typos

fix typos s/recieve/receive/

Author: hyperthunk

src/Control/Distributed/Process/Platform/Call.hs

@@ -71,23 +71,23 @@ multicall :: forall a b.(Serializable a, Serializable b)
              => [ProcessId] -> a -> Tag -> Timeout -> Process [Maybe b]
 multicall nodes msg tag time =
   do caller <- getSelfPid
-     reciever <- spawnLocal $
-         do reciever_pid <- getSelfPid
+     receiver <- spawnLocal $
+         do receiver_pid <- getSelfPid
             mon_caller <- monitor caller
             () <- expect
             monitortags <- forM nodes monitor
             forM_ nodes $ \node -> send node (Multicall, node,
-                                              reciever_pid, tag, msg)
-            maybeTimeout time tag reciever_pid
+                                              receiver_pid, tag, msg)
+            maybeTimeout time tag receiver_pid
             results <- recv nodes monitortags mon_caller
             send caller (MulticallResponse,tag,results)
-     mon_reciever <- monitor reciever
-     send reciever ()
+     mon_receiver <- monitor receiver
+     send receiver ()
      receiveWait [
          matchIf (\(MulticallResponse,mtag,_) -> mtag == tag)
                  (\(MulticallResponse,_,val) -> return val),
          matchIf (\(ProcessMonitorNotification ref _pid reason)
-                  -> ref == mon_reciever && reason /= DiedNormal)
+                  -> ref == mon_receiver && reason /= DiedNormal)
                  (\_ -> error "multicall: unexpected termination of worker")
        ]
   where

src/Control/Distributed/Process/Platform/ManagedProcess/Server.hs

@@ -498,7 +498,7 @@ handleDispatchIf cond handler = DispatchIf {
                 (CastMessage p)   -> (h s p)
                 (ChanMessage p _) -> (h s p)
 
--- | Creates a generic input handler (i.e., for recieved messages that are /not/
+-- | Creates a generic input handler (i.e., for received messages that are /not/
 -- sent using the 'cast' or 'call' APIs) from an ordinary function in the
 -- 'Process' monad.
 handleInfo :: forall s a. (Serializable a)

tests/Counter.hs

@@ -30,7 +30,7 @@ import GHC.Generics
 -- Call and Cast request types. Response types are unnecessary as the GenProcess
 -- API uses the Async API, which in turn guarantees that an async handle can
 -- /only/ give back a reply for that *specific* request through the use of an
--- anonymous middle-man (as the sender and reciever in our case).
+-- anonymous middle-man (as the sender and receiver in our case).
 
 data Increment = Increment
   deriving (Typeable, Generic, Eq, Show)