github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 01:47:01 +03:00
Code Issues Projects Releases Wiki Activity

eta reduce

Browse Source
This commit is contained in:
joshvera 2018-08-10 11:23:45 -04:00
parent df121a72b4
commit a70cad8f86
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/Control/Abstract/Primitive.hs
View File

@ -88,7 +88,7 @@ instance (Member Fresh effects, Lambda address value effects ret) => Lambda addr
{-# INLINE lambda' #-}
instance Member (Function address value) effects => Lambda address value effects (Evaluator address value effects address) where
lambda' vars body = function vars lowerBound body
lambda' vars = function vars lowerBound
{-# INLINE lambda' #-}
builtInPrint :: ( AbstractValue address value effects