summaryrefslogtreecommitdiff
path: root/src/Network/QueryResponse.hs
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2017-09-22 19:44:30 -0400
committerjoe <joe@jerkface.net>2017-09-22 19:44:30 -0400
commit84207ee6d28a44bb6eaaa6efe0cd3ffd88affcd0 (patch)
treebafe14996bb885596c75911b12c817de84da0b7c /src/Network/QueryResponse.hs
parent11d2b22814b0d31935f4d7b67706d9ee72c310d3 (diff)
Corrected spelling errors in comments.
Diffstat (limited to 'src/Network/QueryResponse.hs')
-rw-r--r--src/Network/QueryResponse.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Network/QueryResponse.hs b/src/Network/QueryResponse.hs
index 7244304e..b7a402b4 100644
--- a/src/Network/QueryResponse.hs
+++ b/src/Network/QueryResponse.hs
@@ -147,7 +147,7 @@ forkListener name client = do
147 killThread thread_id 147 killThread thread_id
148 148
149-- | Send a query to a remote peer. Note that this funciton will always time 149-- | Send a query to a remote peer. Note that this funciton will always time
150-- out if 'forkListener' was never invoked to spawn a thread receive and 150-- out if 'forkListener' was never invoked to spawn a thread to receive and
151-- dispatch the response. 151-- dispatch the response.
152sendQuery :: 152sendQuery ::
153 forall err a b tbl x meth tid addr. 153 forall err a b tbl x meth tid addr.
@@ -258,7 +258,7 @@ data MethodSerializer tid addr x meth a b = MethodSerializer
258 , method :: meth 258 , method :: meth
259 -- | Serialize the outgoing query /a/ into a transmitable packet /x/. 259 -- | Serialize the outgoing query /a/ into a transmitable packet /x/.
260 -- The /addr/ arguments are, respectively, our own origin address and the 260 -- The /addr/ arguments are, respectively, our own origin address and the
261 -- destination of the request. The /ctx/ argument is useful for attaching 261 -- destination of the request. The /tid/ argument is useful for attaching
262 -- auxillary notations on all outgoing packets. 262 -- auxillary notations on all outgoing packets.
263 , wrapQuery :: tid -> addr -> addr -> a -> x 263 , wrapQuery :: tid -> addr -> addr -> a -> x
264 -- | Parse an inbound packet /x/ into a response /b/ for this query. 264 -- | Parse an inbound packet /x/ into a response /b/ for this query.
@@ -323,7 +323,7 @@ contramapT f (TableMethods ins del lookup) =
323-- convenience to test if an integral type, such as 'Data.Word.Word64', can be 323-- convenience to test if an integral type, such as 'Data.Word.Word64', can be
324-- safely transformed into an 'Int' for use with 'IntMap'. 324-- safely transformed into an 'Int' for use with 'IntMap'.
325-- 325--
326-- Returns 'True' if the proxied type can be losslessly convered to 'Int' using 326-- Returns 'True' if the proxied type can be losslessly converted to 'Int' using
327-- 'fromIntegral'. 327-- 'fromIntegral'.
328fitsInInt :: forall word. (Bounded word, Integral word) => Proxy word -> Bool 328fitsInInt :: forall word. (Bounded word, Integral word) => Proxy word -> Bool
329fitsInInt Proxy = (original == casted) 329fitsInInt Proxy = (original == casted)