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

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 22b85b9..a556471 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -1595,7 +1595,7 @@ setTmpDir dir dflags = dflags{ tmpDir = canonicalise dir }
      -- strip the trailing backslash (awful, but we only do this once).
      removeTrailingSlash path
       | isPathSeparator (last path) = init path
-      | othwerwise                  = path
+      | otherwise                   = path
 #endif
 
 -----------------------------------------------------------------------------