diff --git a/HW2.fedorind.hs b/HW2.fedorind.hs index 1c0e0eb..65b37b5 100644 --- a/HW2.fedorind.hs +++ b/HW2.fedorind.hs @@ -95,4 +95,4 @@ neg = fold' (Lit . negate) Add (Mul . neg) -- Not efficient, but short :^) -- >>> eval (sub e2 e1) -- 51 -- -sub = fmap (. neg) Add -- (a -> b) is a Functor +sub = (. neg) . Add -- (a -> b) is a Functor