[GHC] #12504: Windows: Using hsc2hs in combination with inline-c generates the .c files with invalid paths

[GHC]

#12504: Windows: Using hsc2hs in combination with inline-c generates the .c files
with invalid paths
-------------------------------------+-------------------------------------
        Reporter:  rcook             |                Owner:
            Type:  bug               |               Status:  patch
        Priority:  normal            |            Milestone:
       Component:  hsc2hs            |              Version:  8.0.1
      Resolution:                    |             Keywords:
Operating System:  Windows           |         Architecture:
                                     |  Unknown/Multiple
 Type of failure:  Other             |            Test Case:
                                     |  /testsuite/tests/hsc2hs/T12504/path/to/T12504.hsc
      Blocked By:                    |             Blocking:
 Related Tickets:                    |  Differential Rev(s):  Phab:D2478
       Wiki Page:                    |
-------------------------------------+-------------------------------------

Comment (by rcook):

 @mpickering: Here's a more compact repro case:

 {{{#!hs
 $ cat T12504/path/to/T12504.hsc
 module Main (main) where

 main :: IO ()
 main = putStrLn "hello world"
 $ '/c/src/ghc/inplace/bin/hsc2hs.exe' T12504/path/to/T12504.hsc
 $ cat T12504/path/to/T12504.hs
 {-# LINE 1 "T12504\path\to\T12504.hsc" #-}
 module Main (main) where
 {-# LINE 2 "T12504\path\to\T12504.hsc" #-}

 main :: IO ()
 main = putStrLn "hello world"
 }}}

 Notice that the backslashes in the paths are not escaped properly.

--
Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/12504#comment:9>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler