Implement unboxed sum primitive type
[ghc.git] / compiler / basicTypes / IdInfo.hs
index 97d4186..0cd2e95 100644 (file)
@@ -304,7 +304,7 @@ type ArityInfo = Arity
 
 -- | It is always safe to assume that an 'Id' has an arity of 0
 unknownArity :: Arity
-unknownArity = 0 :: Arity
+unknownArity = 0
 
 ppArityInfo :: Int -> SDoc
 ppArityInfo 0 = empty