git.iko.soy/ghcide
on master help sign in
Remove the dependency of da-hs-language-server and language-server on da-hs-base (#1642)
794846dMoritz Kiefer
src/Development/IDE/Logger.hs+3−1
compare with master
unifiedsplit
@@ -16,11 +16,13 @@ import GHC.Stack
16
16
17data Handle = Handle {
17data Handle = Handle {
18 logSeriousError :: HasCallStack => T.Text -> IO ()
18 logSeriousError :: HasCallStack => T.Text -> IO ()
19+ , logInfo :: HasCallStack => T.Text -> IO ()
19 , logDebug :: HasCallStack => T.Text -> IO ()
20 , logDebug :: HasCallStack => T.Text -> IO ()
21+ , logWarning :: HasCallStack => T.Text -> IO ()
20 }
22 }
21
23
22makeNopHandle :: Handle
24makeNopHandle :: Handle
23makeNopHandle = makeOneHandle $ const $ pure ()
25makeNopHandle = makeOneHandle $ const $ pure ()
24
26
25makeOneHandle :: (HasCallStack => T.Text -> IO ()) -> Handle
27makeOneHandle :: (HasCallStack => T.Text -> IO ()) -> Handle
26−makeOneHandle x = Handle x x
28+makeOneHandle x = Handle x x x x