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

[ghc-hetmet.git] / ghc / compiler / basicTypes / Module.lhs

diff --git a/ghc/compiler/basicTypes/Module.lhs b/ghc/compiler/basicTypes/Module.lhs
index 6fad2e2..1d6100a 100644 (file)
--- 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