From: rrt <unknown>
Date: Tue, 21 Aug 2001 09:04:22 +0000 (+0000)
Subject: [project @ 2001-08-21 09:04:22 by rrt]
X-Git-Tag: Approximately_9120_patches~1163
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=34e4ac65f22188e4902ea9d9ce2c8e06e09a592c;p=ghc-hetmet.git

[project @ 2001-08-21 09:04:22 by rrt]
Remove unused function isSlash
---

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 2e0edd0..20a8099 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -791,9 +791,6 @@ subst a b ls = map (\ x -> if x == a then b else x) ls
 slash		 :: String -> String -> String
 absPath, relPath :: [String] -> String
 
-isSlash '/'   = True
-isSlash other = False
-
 relPath [] = ""
 relPath xs = foldr1 slash xs