Permalink
Browse files

Fix indenting

  • Loading branch information...
David Scott
David Scott committed Feb 24, 2013
1 parent 9d0c62a commit f09804241e64f897c0a29eaa460278bad9eabbe3
Showing with 4 additions and 3 deletions.
  1. +4 −3 server/xs_server.ml
View
@@ -80,10 +80,11 @@ module Server = functor(T: TRANSPORT) -> struct
done in
try_lwt
- lwt () = while_lwt true do
+ lwt () =
+ while_lwt true do
lwt request = match_lwt (PS.recv channel) with
- | Ok x -> return x
- | Exception e -> raise_lwt e in
+ | Ok x -> return x
+ | Exception e -> raise_lwt e in
let events = take_watch_events () in
let reply = Call.reply store c request in
Lwt_mutex.with_lock m

0 comments on commit f098042

Please sign in to comment.