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

🔥 some unused parametetrs.

Browse Source
This commit is contained in:
Rob Rix 2018-09-25 13:37:07 -05:00
parent 605687fe37
commit 06831f7f4d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Data/Syntax/Declaration.hs
View File

@ -28,7 +28,7 @@ instance Show1 Function where liftShowsPrec = genericLiftShowsPrec
-- TODO: How should we represent function types, where applicable?
instance Evaluatable Function where
eval eval Function{..} = do
eval _ Function{..} = do
name <- maybeM (throwEvalError NoNameError) (declaredName functionName)
(_, addr) <- letrec name (function (Just name) (paramNames functionParameters) functionBody)
bind name addr
@ -61,7 +61,7 @@ instance Diffable Method where
-- Evaluating a Method creates a closure and makes that value available in the
-- local environment.
instance Evaluatable Method where
eval eval Method{..} = do
eval _ Method{..} = do
name <- maybeM (throwEvalError NoNameError) (declaredName methodName)
(_, addr) <- letrec name (function (Just name) (paramNames methodParameters) methodBody)
bind name addr