Development.IDE.Spans.LocalBindings: 2 fun: put docs to their args

Author: Anton-Latukha

ghcide/src/Development/IDE/Spans/LocalBindings.hs

@@ -94,20 +94,18 @@ instance Show Bindings where
     show _ = "<bindings>"
 
 
-------------------------------------------------------------------------------
--- | Given a 'Bindings' get every identifier in scope at the given
--- 'RealSrcSpan',
-getLocalScope :: Bindings -> RealSrcSpan -> [(Name, Maybe Type)]
+getLocalScope :: Bindings -- ^ Given a 'Bindings'
+  -> RealSrcSpan -- ^ in scope at the given 'RealSrcSpan'
+  -> [(Name, Maybe Type)] -- ^ return every identifier.
 getLocalScope bs rss
   = nameEnvElts
   $ foldMap snd
   $ IM.dominators (realSrcSpanToInterval rss)
   $ getLocalBindings bs
 
-------------------------------------------------------------------------------
--- | Given a 'Bindings', get every binding currently active at a given
--- 'RealSrcSpan',
-getDefiningBindings :: Bindings -> RealSrcSpan -> [(Name, Maybe Type)]
+getDefiningBindings :: Bindings -- ^ Given a 'Bindings'
+  -> RealSrcSpan -- ^ at a given 'RealSrcSpan'
+  -> [(Name, Maybe Type)] -- ^ return bindings currently active
 getDefiningBindings bs rss
   = nameEnvElts
   $ foldMap snd
@@ -137,4 +135,3 @@ getFuzzyDefiningBindings bs a b
   $ foldMap snd
   $ IM.intersections (Interval a b)
   $ getBindingSites bs
-