github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-30 18:36:27 +03:00
Code Issues Projects Releases Wiki Activity

Remove extra parens

Browse Source
This commit is contained in:
Timothy Clem 2018-03-08 09:33:12 -08:00
parent 50611f2757
commit 905081cbf1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Analysis/IdentifierName.hs
View File

@ -15,7 +15,7 @@ import qualified Data.Syntax
-- | Compute a 'IdentifierLabel' label for a 'Term'. -- | Compute a 'IdentifierLabel' label for a 'Term'.
identifierLabel :: IdentifierName syntax => TermF syntax a b -> Maybe IdentifierLabel identifierLabel :: IdentifierName syntax => TermF syntax a b -> Maybe IdentifierLabel
identifierLabel (In _ s) = IdentifierLabel <$> (identifierName s) identifierLabel (In _ s) = IdentifierLabel <$> identifierName s
newtype IdentifierLabel = IdentifierLabel ByteString newtype IdentifierLabel = IdentifierLabel ByteString
deriving (Show) deriving (Show)