github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

📝 the Semigroup instance for Concrete.

Browse Source
This commit is contained in:
Rob Rix 2019-08-06 13:44:21 -04:00
parent 82cb7e49b0
commit d600246663
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
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/Analysis/Concrete.hs
View File

@ -48,6 +48,7 @@ data Concrete
| String Text
| Record Env
deriving (Eq, Ord, Show)
-- | We derive the 'Semigroup' instance for 'Concrete' to take the second argument. This is equivalent to stating that the return value of an imperative sequence of statements is the value of its final statement.
deriving Semigroup via Last Concrete
recordFrame :: Concrete -> Maybe Env