From: simonpj <unknown>
Date: Fri, 27 Aug 1999 17:32:42 +0000 (+0000)
Subject: [project @ 1999-08-27 17:32:42 by simonpj]
X-Git-Tag: Approximately_9120_patches~5856
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6263d5e26e3b3b6665b6f71a3a1d8183de55c05c;p=ghc-hetmet.git

[project @ 1999-08-27 17:32:42 by simonpj]
Fix typo
---

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