Fix typo

[ghc-hetmet.git] / compiler / main / DynFlags.hs

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 7d692ec..a556471 100644 (file)
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -1588,14 +1588,14 @@ 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
 
      -- strip the trailing backslash (awful, but we only do this once).
      removeTrailingSlash path
       | isPathSeparator (last path) = init path
-      | othwerwise                  = path
+      | otherwise                   = path
 #endif
 
 -----------------------------------------------------------------------------