metro 0.1.0.0 → 0.1.0.1
raw patch · 5 files changed
+2/−18 lines, 5 files
Files
- metro.cabal +2/−2
- src/Metro/Conn.hs +0/−4
- src/Metro/Node.hs +0/−4
- src/Metro/Server.hs +0/−4
- src/Metro/Session.hs +0/−4
metro.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: fc11297ad715dd46f77689e3e7b67ebbba22e21be3d166fc4e27a28c686e4730+-- hash: 124f20e53bf16376d862c5d84dd92ae18ac0dcaaca36281152e40f7d65acc566 name: metro-version: 0.1.0.0+version: 0.1.0.1 synopsis: A simple tcp and udp socket server framework description: Please see the README on GitHub at <https://github.com/Lupino/metro#readme> category: Network,Framework
src/Metro/Conn.hs view
@@ -47,10 +47,6 @@ ) instance MonadUnliftIO m => MonadUnliftIO (ConnT tp m) where- askUnliftIO = ConnT $- ReaderT $ \r ->- withUnliftIO $ \u ->- return (UnliftIO (unliftIO u . runConnT r)) withRunInIO inner = ConnT $ ReaderT $ \r -> withRunInIO $ \run ->
src/Metro/Node.hs view
@@ -110,10 +110,6 @@ ) instance MonadUnliftIO m => MonadUnliftIO (NodeT u nid k rpkt tp m) where- askUnliftIO = NodeT $- ReaderT $ \r ->- withUnliftIO $ \u ->- return (UnliftIO (unliftIO u . runNodeT r)) withRunInIO inner = NodeT $ ReaderT $ \r -> withRunInIO $ \run ->
src/Metro/Server.hs view
@@ -87,10 +87,6 @@ lift = ServerT . lift instance MonadUnliftIO m => MonadUnliftIO (ServerT serv u nid k rpkt tp m) where- askUnliftIO = ServerT $- ReaderT $ \r ->- withUnliftIO $ \u ->- return (UnliftIO (unliftIO u . runServerT r)) withRunInIO inner = ServerT $ ReaderT $ \r -> withRunInIO $ \run ->
src/Metro/Session.hs view
@@ -69,10 +69,6 @@ lift = SessionT . lift . lift instance MonadUnliftIO m => MonadUnliftIO (SessionT u nid k rpkt tp m) where- askUnliftIO = SessionT $- ReaderT $ \r ->- withUnliftIO $ \u ->- return (UnliftIO (unliftIO u . runSessionT r)) withRunInIO inner = SessionT $ ReaderT $ \r -> withRunInIO $ \run ->