From: Ian Lynagh <igloo@earth.li>
Date: Mon, 2 Jul 2007 11:47:09 +0000 (+0000)
Subject: Remove unused cfst (== const)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=b98b590f7f62cd8f5c1653584ce37ebf5ac09ffd

Remove unused cfst (== const)
---

diff --git a/compiler/utils/Util.lhs b/compiler/utils/Util.lhs
index 2d80c45..ed4a4b9 100644
--- a/compiler/utils/Util.lhs
+++ b/compiler/utils/Util.lhs
@@ -705,15 +705,6 @@ removeSpaces = reverse . dropWhile isSpace . reverse . dropWhile isSpace
 %*									*
 %************************************************************************
 
-The following are curried versions of @fst@ and @snd@.
-
-\begin{code}
-#if NOT_USED
-cfst :: a -> b -> a	-- stranal-sem only (Note)
-cfst x y = x
-#endif
-\end{code}
-
 The following provide us higher order functions that, when applied
 to a function, operate on pairs.