git.iko.soy/ghcide
on master help sign in
Add utility function for the IDE Logger (#1132)
3d66a7aNeil Mitchell
src/Development/IDE/Logger.hs+5−2
compare with master
unifiedsplit
@@ -7,6 +7,7 @@
7-- framework they want to.
7-- framework they want to.
8module Development.IDE.Logger
8module Development.IDE.Logger
9 ( Handle(..)
9 ( Handle(..)
10+ , makeOneHandle
10 , makeNopHandle
11 , makeNopHandle
11 ) where
12 ) where
12
13
@@ -19,5 +20,7 @@ data Handle = Handle {
19 }
20 }
20
21
21makeNopHandle :: Handle
22makeNopHandle :: Handle
22−makeNopHandle = Handle e e where
23+makeNopHandle = makeOneHandle $ const $ pure ()
23− e _ = pure ()
24+
25+makeOneHandle :: (HasCallStack => T.Text -> IO ()) -> Handle
26+makeOneHandle x = Handle x x