github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-09 00:56:32 +03:00
Code Issues Projects Releases Wiki Activity

Formatting

Browse Source
This commit is contained in:
Timothy Clem 2017-11-29 17:05:51 -08:00
parent 9f310ac992
commit 95512a82a0
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/Expression.hs
View File

@ -29,8 +29,8 @@ instance Ord1 Call where liftCompare = genericLiftCompare
instance Show1 Call where liftShowsPrec = genericLiftShowsPrec
instance ( Ord l
, Semigroup (Cell l (Value l t))
, MonadFail m
, Semigroup (Cell l (Value l t))
, MonadEnv l (Value l t) m
, MonadStore l (Value l t) m
, MonadAddress l m
@ -39,7 +39,7 @@ instance ( Ord l
eval recur yield Call{..} = do
closure <- recur pure callFunction
Closure names body env <- maybe (fail "expected a closure") pure (prj closure :: Maybe (Closure l t))
bindings <- for (zip names callParams) $ \ (name, param) -> do
bindings <- for (zip names callParams) $ \(name, param) -> do
v <- recur pure param
a <- alloc name
assign a v