[project @ 1997-05-19 06:25:00 by sof]

[ghc-hetmet.git] / ghc / compiler / rename / RnIfaces.lhs

diff --git a/ghc/compiler/rename/RnIfaces.lhs b/ghc/compiler/rename/RnIfaces.lhs
index 97d1edc..04252d9 100644 (file)
--- a/ghc/compiler/rename/RnIfaces.lhs
+++ b/ghc/compiler/rename/RnIfaces.lhs
@@ -923,13 +923,13 @@ mkSearchPath Nothing = [(".",".hi")]
 mkSearchPath (Just s)
   = go s
   where
+    go "" = []
     go s  = 
       case span (/= '%') s of
        (dir,'%':rs) ->
          case span (/= ':') rs of
           (hisuf,_:rest) -> (dir,hisuf):go rest
           (hisuf,[])     -> [(dir,hisuf)]
-
 \end{code}
 
 %*********************************************************