Less confusing still

monadfix · Feb 3, 2019 · 17aaeae · 17aaeae
1 parent 40cc876
commit 17aaeae
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/servant-mock/src/Mock.hs b/servant-mock/src/Mock.hs
@@ -49,7 +49,6 @@ type ClientMock = ReaderT Application IO
 instance RunClient ClientMock where
     runRequest :: Request -> ClientMock Response
     runRequest request = ReaderT $ \app -> do
-        -- The 'Application' gives us its response and we return it.
         responseMVar <- newEmptyMVar @Response
         let storeResponse :: Wai.Response -> IO Wai.ResponseReceived
             storeResponse waiResponse = do