X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fprelude%2FForeignCall.lhs;h=a80900e506c34aae6e98cdc300b5bc07ba226f2b;hb=ac808e641e285df89b8f1bcda95b6e859bb4e4ab;hp=df309342539b7355562da6b6673d11fb1aebca34;hpb=594cc38109e66088ab144f9370ca07a8eb54d2e8;p=ghc-hetmet.git

diff --git a/compiler/prelude/ForeignCall.lhs b/compiler/prelude/ForeignCall.lhs
index df30934..a80900e 100644
--- a/compiler/prelude/ForeignCall.lhs
+++ b/compiler/prelude/ForeignCall.lhs
@@ -116,7 +116,7 @@ data CCallTarget
 
 isDynamicTarget :: CCallTarget -> Bool
 isDynamicTarget DynamicTarget = True
-isDynamicTarget other	      = False
+isDynamicTarget _             = False
 \end{code}