X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FDynFlags.hs;h=22b85b9e542604adf81aa409c04598a6eca4def5;hb=dde771de24f0e02d00867e79f7c68e526475d7c6;hp=7d692ecf5529f077d4828c864315b06ed29737de;hpb=7eb5e29b4a7b6fef55512bc7bf3308e712ca3eba;p=ghc-hetmet.git

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 7d692ec..22b85b9 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -1588,7 +1588,7 @@ setTmpDir dir dflags = dflags{ tmpDir = canonicalise dir }
      -- understand /cygdrive paths.)
      cygdrivePrefix = [pathSeparator] ++ "/cygdrive/" ++ [pathSeparator]
      xltCygdrive path = case maybePrefixMatch cygdrivePrefix path of
-                        Just (drive:sep:xs))
+                        Just (drive:sep:xs)
                          | isPathSeparator sep -> drive:':':pathSeparator:xs
                         _ -> path