diff --git a/src/App.hs b/src/App.hs
index 2f2e1a7..128ad3a 100644
--- a/src/App.hs
+++ b/src/App.hs
@@ -36,7 +36,6 @@ debug message =
   show <$> asks sessionID
   >>= lift . putStrLn . (++ ' ':message)
 
-{- Not using the previous to minimize the duration mServer gets locked -}
 exec :: (Server.T -> IO (Server.T, a)) -> T a
 exec f = do
   Context {mServer} <- ask