X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FUtil.lhs;h=ed4a4b9ead2f7ad259df70ae7b57a643519d7e0f;hb=b98b590f7f62cd8f5c1653584ce37ebf5ac09ffd;hp=2d80c45777b05f9f05ab161d0e3e013574986647;hpb=7fb6cab70c0ebf64f15f3cc140625a235000fda4;p=ghc-hetmet.git

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.