github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 01:47:01 +03:00
Code Issues Projects Releases Wiki Activity

Restore spacing.

Browse Source
This commit is contained in:
Patrick Thomson 2019-09-18 13:43:31 -04:00
parent 2aea021890
commit 962cd5d5de
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
semantic-core/src/Data/Core.hs
View File

@ -222,6 +222,7 @@ instance HFunctor Ann
instance RightModule Ann where instance RightModule Ann where
Ann l b >>=* f = Ann l (b >>= f) Ann l b >>=* f = Ann l (b >>= f)
ann :: (Carrier sig m, Member Ann sig) => HasCallStack => m a -> m a ann :: (Carrier sig m, Member Ann sig) => HasCallStack => m a -> m a
ann = annWith callStack ann = annWith callStack