[hoc-cvs] hoc/Samples/ExpressionParser EPController.hs,1.3,1.4

[Andre P. <at...@us...>]

Update of /cvsroot/hoc/hoc/Samples/ExpressionParser
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23694/Samples/ExpressionParser

Modified Files:
	EPController.hs 
Log Message:
More GHC 6.4 compilation fixes



Index: EPController.hs
===================================================================
RCS file: /cvsroot/hoc/hoc/Samples/ExpressionParser/EPController.hs,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- EPController.hs	16 May 2004 16:21:49 -0000	1.3
+++ EPController.hs	31 Mar 2005 16:37:59 -0000	1.4
@@ -19,10 +19,9 @@
 obj #. var = obj # getIVar var
 
 ep_evaluateExpression _ self = do
-  expression <- self #. _expressionEntry >>= stringValue >>= haskellString
-  case (parse expr "" expression) of
-    Left e -> 
-      self #. _evaluation >>= setStringValue (toNSString $ "Error " ++ show e)
-    Right answer ->
-      self #. _evaluation >>= setStringValue (toNSString $ show answer)
-
+expression <- self #. _expressionEntry >>= stringValue >>= haskellString
+case (parse expr "" expression) of
+  Left e -> 
+    self #. _evaluation >>= setStringValue (toNSString $ "Error " ++ show e)
+  Right answer ->
+    self #. _evaluation >>= setStringValue (toNSString $ show answer)