1 files changed, 25 insertions, 25 deletions

diff --git a/src/Network/QueryResponse.hs b/src/Network/QueryResponse.hs
index 8c793a1a..d467d302 100644
--- a/src/Network/QueryResponse.hs
+++ b/src/Network/QueryResponse.hs
@@ -85,7 +85,7 @@ partitionTransport parse encodex encodey tr =
 -- | Paritions a 'Transport' into two higher-level transports.  Note: An 'MVar'
 -- is used to share the same underlying socket, so be sure to fork a thread for
 -- both returned 'Transport's to avoid hanging.
-partitionTransportM :: ((b,a) -> IO (Either (x,xaddr) (y,yaddr))) 
+partitionTransportM :: ((b,a) -> IO (Either (x,xaddr) (y,yaddr)))
                       -> ((x,xaddr) -> IO (b,a))
                       -> ((y,yaddr) -> IO (b,a))
                       -> Transport err a b
@@ -147,13 +147,13 @@ forkListener name client = do
         closeTransport client
         killThread thread_id
 
--- | Send a query to a remote peer.  Note that this funciton will always time
+-- | Send a query to a remote peer.  Note that this function will always time
 -- out if 'forkListener' was never invoked to spawn a thread to receive and
 -- dispatch the response.
 sendQuery ::
     forall err a b tbl x meth tid addr.
         Client err meth tid addr x              -- ^ A query/response implementation.
-        -> MethodSerializer tid addr x meth a b -- ^ Information for marshalling the query.
+        -> MethodSerializer tid addr x meth a b -- ^ Information for marshaling the query.
         -> a                                    -- ^ The outbound query.
         -> addr                                 -- ^ Destination address of query.
         -> IO (Maybe b)                         -- ^ The response, or 'Nothing' if it timed out.
@@ -198,7 +198,7 @@ data Client err meth tid addr x = forall tbl. Client
     , clientResponseId :: tid -> IO tid
     }
 
--- | An incomming message can be classified into three cases.
+-- | An incoming message can be classified into three cases.
 data MessageClass err meth tid
     = IsQuery meth tid -- ^ An unsolicited query is handled based on it's /meth/ value.  Any response
                        -- should include the provided /tid/ value.
@@ -248,7 +248,7 @@ dispatchQuery (MethodHandler unwrapQ wrapR f) tid self x addr =
 dispatchQuery (NoReply unwrapQ f) tid self x addr =
     fmap (\a -> f addr a >> return Nothing) $ unwrapQ x
 
--- | These four parameters are required to implement an ougoing query.  A
+-- | These four parameters are required to implement an outgoing query.  A
 -- peer-to-peer algorithm will define a 'MethodSerializer' for every 'MethodHandler' that
 -- might be returned by 'lookupHandler'.
 data MethodSerializer tid addr x meth a b = MethodSerializer
@@ -257,19 +257,19 @@ data MethodSerializer tid addr x meth a b = MethodSerializer
       -- | A method identifier used for error reporting.  This needn't be the
       -- same as the /meth/ argument to 'MethodHandler', but it is suggested.
     , method :: meth
-      -- | Serialize the outgoing query /a/ into a transmitable packet /x/.
+      -- | Serialize the outgoing query /a/ into a transmittable packet /x/.
       -- The /addr/ arguments are, respectively, our own origin address and the
       -- destination of the request.  The /tid/ argument is useful for attaching
-      -- auxillary notations on all outgoing packets.
+      -- auxiliary notations on all outgoing packets.
     , wrapQuery :: tid -> addr -> addr -> a -> x
       -- | Parse an inbound packet /x/ into a response /b/ for this query.
     , unwrapResponse :: x -> b
     }
 
 
--- | To dipatch responses to our outbound queries, we require three primitives.
--- See the 'transactionMethods' function to create these primitives out of a
--- lookup table and a generator for transaction ids.
+-- | To dispatch responses to our outbound queries, we require three
+-- primitives.  See the 'transactionMethods' function to create these
+-- primitives out of a lookup table and a generator for transaction ids.
 --
 -- The type variable /d/ is used to represent the current state of the
 -- transaction generator and the table of pending transactions.
@@ -280,7 +280,7 @@ data TransactionMethods d tid x = TransactionMethods
       -- that can be used to forget the 'MVar' if the remote peer is not
       -- responding.
       dispatchRegister :: MVar x -> d -> STM (tid, d)
-      -- | This method is invoked when an incomming packet /x/ indicates it is
+      -- | This method is invoked when an incoming packet /x/ indicates it is
       -- a response to the transaction with id /tid/.  The returned IO action
       -- is will write the packet to the correct 'MVar' thus completing the
       -- dispatch.
@@ -353,13 +353,13 @@ transactionMethods (TableMethods insert delete lookup) generate = TransactionMet
             Nothing -> return ((g,t), return ())
     }
 
--- | A set of methods neccessary for dispatching incomming packets.
+-- | A set of methods necessary for dispatching incoming packets.
 data DispatchMethods tbl err meth tid addr x = DispatchMethods
-    { -- | Clasify an inbound packet as a query or response.
+    { -- | Classify an inbound packet as a query or response.
       classifyInbound :: x -> MessageClass err meth tid
       -- | Lookup the handler for a inbound query.
     , lookupHandler :: meth -> Maybe (MethodHandler err tid addr x)
-      -- | Methods for handling incomming responses.
+      -- | Methods for handling incoming responses.
     , tableMethods :: TransactionMethods tbl tid x
     }
 
@@ -368,19 +368,19 @@ data DispatchMethods tbl err meth tid addr x = DispatchMethods
 --
 --   [ /addr/ ]  Address of remote peer.
 --
---   [ /x/ ]     Incomming or outgoing packet.
+--   [ /x/ ]     Incoming or outgoing packet.
 --
---   [ /meth/ ]  Method id of incomming or outgoing request.
+--   [ /meth/ ]  Method id of incoming or outgoing request.
 --
 --   [ /tid/ ]   Transaction id for outgoing packet.
 --
 --   [ /err/ ]   Error information, typically a 'String'.
 data ErrorReporter addr x meth tid err = ErrorReporter
-    { -- | Incomming: failed to parse packet.
+    { -- | Incoming: failed to parse packet.
       reportParseError :: err -> IO ()
-      -- | Incomming: no handler for request.
+      -- | Incoming: no handler for request.
     , reportMissingHandler :: meth -> addr -> x -> IO ()
-      -- | Incomming: unable to identify request.
+      -- | Incoming: unable to identify request.
     , reportUnknown :: addr -> x -> err -> IO ()
       -- | Outgoing: remote peer is not responding.
     , reportTimeout :: meth -> tid -> addr -> IO ()
@@ -414,9 +414,9 @@ instance Contravariant (ErrorReporter addr x meth tid) where
                         tim
 
 -- | Handle a single inbound packet and then invoke the given continuation.
--- The 'forkListener' function is implemeneted by passing this function to
--- 'fix' in a forked thread that loops until 'awaitMessage' returns 'Nothing'
--- or throws an exception.
+-- The 'forkListener' function is implemented by passing this function to 'fix'
+-- in a forked thread that loops until 'awaitMessage' returns 'Nothing' or
+-- throws an exception.
 handleMessage ::
     Client err meth tid addr x
     -> addr
@@ -460,20 +460,20 @@ sockAddrFamily (SockAddrInet6 _ _ _ _) = AF_INET6
 sockAddrFamily (SockAddrUnix  _      ) = AF_UNIX
 sockAddrFamily (SockAddrCan _        ) = AF_CAN
 
--- | Packets with an empty payload may trigger eof exception.
+-- | Packets with an empty payload may trigger EOF exception.
 -- 'udpTransport' uses this function to avoid throwing in that
 -- case.
 ignoreEOF :: a -> IOError -> IO a
 ignoreEOF def e | isEOFError e = pure def
                 | otherwise    = throwIO e
 
--- | Hardcoded maximum packet size for incomming udp packets received via
+-- | Hard-coded maximum packet size for incoming UDP Packets received via
 -- 'udpTransport'.
 udpBufferSize :: Int
 udpBufferSize = 65536
 
 -- | A 'udpTransport' uses a UDP socket to send and receive 'ByteString's.  The
--- argument is the listen-address for incomming packets.  This is a useful
+-- argument is the listen-address for incoming packets.  This is a useful
 -- low-level 'Transport' that can be transformed for higher-level protocols
 -- using 'layerTransport'.
 udpTransport :: SockAddr -> IO (Transport err SockAddr ByteString)