github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-02 20:41:38 +03:00
Code Issues Projects Releases Wiki Activity

Stray whitespace change.

Browse Source
This commit is contained in:
Patrick Thomson 2019-07-06 13:28:20 -04:00
parent 5c033973ae
commit eefb1d5d36
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Control/Effect/Interpose.hs
View File

@ -48,7 +48,8 @@ runListener :: Listener eff (InterposeC eff m) -> eff (InterposeC eff m) a -> In
runListener (Listener listen) = listen
instance (Carrier sig m, Member eff sig) => Carrier (Interpose eff :+: sig) (InterposeC eff m) where
eff (L (Interpose m h k)) = InterposeC (local (const (Just (Listener h))) (runInterposeC m)) >>= k
eff (L (Interpose m h k)) =
InterposeC (local (const (Just (Listener h))) (runInterposeC m)) >>= k
eff (R other) = do
listener <- InterposeC ask
case (listener, prj other) of