Commit 3745ba90 authored by Simon Marlow's avatar Simon Marlow

fix warning

parent 7b0ff179
......@@ -956,7 +956,7 @@ runPhase CmmCpp input_fn dflags
runPhase Cmm input_fn dflags
= do
PipeEnv{stop_phase,src_basename} <- getPipeEnv
PipeEnv{src_basename} <- getPipeEnv
let hsc_lang = hscTarget dflags
let next_phase = hscNextPhase dflags HsSrcFile hsc_lang
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