1
1
mirror of https://github.com/github/semantic.git synced 2024-12-22 06:11:49 +03:00

🔥 a redundant type annotation.

This commit is contained in:
Rob Rix 2018-03-01 12:07:52 -05:00
parent 56a7483165
commit ceaa2834a8

View File

@ -90,7 +90,7 @@ instance ( Evaluatable (Base t)
abstract names (Subterm body _) = inj . Closure names body <$> askLocalEnv
apply op params = do
Closure names body env <- maybe (fail "expected a closure") pure (prj op :: Maybe (Closure location t))
Closure names body env <- maybe (fail "expected a closure") pure (prj op)
bindings <- foldr (\ (name, param) rest -> do
v <- subtermValue param
a <- alloc name