diff options
Diffstat (limited to 'libraries/libiserv/src/Lib.hs')
-rw-r--r-- | libraries/libiserv/src/Lib.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/libiserv/src/Lib.hs b/libraries/libiserv/src/Lib.hs index 57e65706c3..0c478d3bf5 100644 --- a/libraries/libiserv/src/Lib.hs +++ b/libraries/libiserv/src/Lib.hs @@ -13,7 +13,7 @@ import Data.Binary type MessageHook = Msg -> IO Msg serv :: Bool -> MessageHook -> Pipe -> (forall a .IO a -> IO a) -> IO () -serv verbose hook pipe@Pipe{..} restore = loop +serv verbose hook pipe restore = loop where loop = do Msg msg <- readPipe pipe getMessage >>= hook |