1
1
mirror of https://github.com/github/semantic.git synced 2024-12-29 18:06:14 +03:00

More Haddocks.

This commit is contained in:
Patrick Thomson 2019-09-30 12:36:53 -04:00
parent b3b1c8d016
commit 0671bffef3

View File

@ -31,14 +31,14 @@ import qualified TreeSitter.Python.AST as Py
import TreeSitter.Span (Span)
import qualified TreeSitter.Span as TreeSitter
-- Access to the current filename as Text to stick into location annotations.
-- | Access to the current filename as Text to stick into location annotations.
newtype SourcePath = SourcePath { rawPath :: Text }
deriving stock (Eq, Show)
deriving newtype IsString
-- Keeps track of the current scope's bindings (so that we can, when
-- compiling a class or module, return the list of bound variables
-- as a Core record so that all immediate definitions are exposed)
-- | Keeps track of the current scope's bindings (so that we can, when
-- compiling a class or module, return the list of bound variables as
-- a Core record so that all immediate definitions are exposed)
newtype Bindings = Bindings { unBindings :: Stack Name }
deriving stock (Eq, Show)
deriving newtype (Semigroup, Monoid)