From 18ae7a81f459512d67d0a550fdaac5298164bded Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 19 Nov 2017 14:08:14 +0100
Subject: Student number

---
 assignment-8/skeleton8.icl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/assignment-8/skeleton8.icl b/assignment-8/skeleton8.icl
index 122418f..562561e 100644
--- a/assignment-8/skeleton8.icl
+++ b/assignment-8/skeleton8.icl
@@ -1,5 +1,7 @@
 module skeleton8
 
+// Camil Staps, s4498062
+
 /**
  * Advanved Progrmming 2017, Assignment 8
  * Pieter Koopman, pieter@cs.ru.nl
@@ -119,7 +121,7 @@ where
 		valAdd (VElem i) (VSet xs) = VSet $ 'S'.insert i xs
 		valAdd (VSet xs) (VElem i) = VSet $ 'S'.insert i xs
 		valAdd (VSet xs) (VSet ys) = VSet $ 'S'.union xs ys
-	eval (a -. b) = on (liftA2 tuple) eval a b >>= uncurry valSub
+	eval (a -. b) = (liftA2 tuple `on` eval) a b >>= uncurry valSub
 	where
 		valSub (VElem i) (VElem j) = pure $ VElem $ i - j
 		valSub (VElem i) (VSet xs) = fail "Cannot subtract Set from Elem"
-- 
cgit v1.2.3