find1: adjust new file search algorithm a little, i.e., instead of this        defn:
find1: adjust new file search algorithm a little, i.e., instead of this
       defn:

    find along nm hugspath
      | isModuleId nm = [ d++f++e | f <- files, d <- dirs, e <- exts ]
      | otherwise     = [ nm ]
     where {....}

extend the literal filename case to also attempt appending the recognised
file extensions:

    find along nm hugspath
      | isModuleId nm = [ d++f++e | f <- files, d <- dirs, e <- exts ]
      | otherwise     = [ nm ++ e | e <- "" : exts ]
     where {....}

This makes it fall into line with the file searching behaviour of
existing Hugsen.

FranklinChen/Hugs,FranklinChen/Hugs,FranklinChen/Hugs,FranklinChen/Hugs,FranklinChen/Hugs,FranklinChen/Hugs,FranklinChen/Hugs