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

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}