git.iko.soy/ghcide
on master help sign in
Add utility function for the IDE Logger (#1132)
commit3d66a7aed698fe368f318be937bda84dc12c70a1 authorNeil Mitchell <35463327+neil-da@users.noreply.github.com> dateTue 14 May 2019, 16:51 (7 years ago) parent160554a
1 file changed+5−2
compare with master
unifiedsplit
src/Development/IDE/Logger.hs+5−2
src/Development/IDE/Logger.hs+5−2
@@ -7,6 +7,7 @@
77-- framework they want to.
88module Development.IDE.Logger
99 ( Handle(..)
10+ , makeOneHandle
1011 , makeNopHandle
1112 ) where
1213
@@ -19,5 +20,7 @@ data Handle = Handle {
1920 }
2021
2122makeNopHandle :: Handle
22−makeNopHandle = Handle e e where
23− e _ = pure ()
23+makeNopHandle = makeOneHandle $ const $ pure ()
24+
25+makeOneHandle :: (HasCallStack => T.Text -> IO ()) -> Handle
26+makeOneHandle x = Handle x x