@@ -177,7 +177,7 @@ showEvent lock (EventFileDiagnostics (toNormalizedFilePath -> file) diags) =
177showEvent lock e = withLock lock $ print e
177showEvent lock e = withLock lock $ print e
180−cradleToSession :: Cradle -> IO HscEnvEq
180+cradleToSession :: Cradle a -> IO HscEnvEq
181cradleToSession cradle = do
181cradleToSession cradle = do
182 cradleRes <- getCompilerOptions "" cradle
182 cradleRes <- getCompilerOptions "" cradle
183 opts <- case cradleRes of
183 opts <- case cradleRes of