From 6263d5e26e3b3b6665b6f71a3a1d8183de55c05c Mon Sep 17 00:00:00 2001 From: simonpj 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 6fad2e2..1d6100a 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 -- 1.7.10.4