Commit 84c481d9 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

FilePath fixes

parent be3eef90
......@@ -58,7 +58,6 @@ import Data.List ( isSuffixOf )
import Data.Maybe
import System.Exit
import System.Environment
import System.FilePath
-- ---------------------------------------------------------------------------
-- Pre-process
......
......@@ -481,9 +481,9 @@ mkStubPaths dflags mod location
= let
stubdir = stubDir dflags
mod_basename = dots_to_slashes (moduleNameString mod)
src_basename = basenameOf (expectJust "mkStubPaths"
(ml_hs_file location))
mod_basename = dots_to_slashes (moduleNameString mod)
src_basename = dropExtension $ expectJust "mkStubPaths"
(ml_hs_file location)
stub_basename0
| Just dir <- stubdir = dir </> mod_basename
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment