From 6263d5e26e3b3b6665b6f71a3a1d8183de55c05c Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 27 Aug 1999 17:32:42 +0000
Subject: [PATCH] [project @ 1999-08-27 17:32:42 by simonpj] Fix typo
---
ghc/compiler/basicTypes/Module.lhs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/compiler/basicTypes/Module.lhs b/ghc/compiler/basicTypes/Module.lhs
index 6fad2e296892..1d6100a80fa0 100644
--- a/ghc/compiler/basicTypes/Module.lhs
+++ b/ghc/compiler/basicTypes/Module.lhs
@@ -307,7 +307,7 @@ getAllFilesMatching dirs hims (dir_path, suffix) = ( do
isLibraryPath ('/' : _ ) = True
isLibraryPath (_ : ':' : '/' : _) = True
isLibraryPath (_ : ':' : '\\' : _) = True
- isLibraryPaty other = False
+ isLibraryPath other = False
xiffus = reverse dotted_suffix
dotted_suffix = case suffix of
--
GitLab