From b5ff89d417c73d74a42a1756cb3ecd99b7a3e7f4 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Wed, 12 Mar 2014 02:17:25 +1100
Subject: Removed some superfluous lambdas in intermediate functions

---
 Library/Object.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Library/Object.hs')

diff --git a/Library/Object.hs b/Library/Object.hs
index 9fc3b94..dd65ded 100644
--- a/Library/Object.hs
+++ b/Library/Object.hs
@@ -55,10 +55,10 @@ instance Show Object where
 makeSubst :: [Object] -> Maybe Substitution
 makeSubst l =
     let list = (map (mapMaybe objList)) . (mapMaybe objList) $ l
-        f = (\g h x -> (g . head $ x, h . last $ x))
+        f g h x = (g . head $ x, h . last $ x)
         check = f (map (f objName objType)) (map (f objVar objTerm)) list
         g = all (\x -> (isJust . fst $ x) && (isJust . snd $ x))
-        h = (\x -> (fromJust . fst $ x, fromJust . snd $ x))
+        h x = (fromJust . fst $ x, fromJust . snd $ x)
     in if ((g . fst $ check) && (g . snd $ check))
        then Just (map h (fst check), map h (snd check))
        else Nothing
-- 
cgit