Add deprecation pragma

Author: kleinreact

clash-prelude/src/Clash/Sized/Vector.hs

@@ -286,6 +286,7 @@ pattern Cons x xs = (:>) x xs
 
 infixr CONS_PREC `Cons`
 {-# COMPLETE Nil, Cons #-}
+{-# DEPRECATED Cons "Use '(:>)' instead. 'Cons' will be removed in Clash 1.12" #-}
 
 instance Show a => Show (Vec n a) where
   showsPrec n = \case
@@ -1620,7 +1621,7 @@ Nil
       In the expression: take d4 (1 :> 2 :> Nil)
       In an equation for ‘it’: it = take d4 (1 :> 2 :> Nil)
 
-#elif __GLASGOW_HASKELL__ >= 902
+#elif __GLASGOW_HASKELL__ >= 900
 >>> take d4               (1:>2:>Nil)
 <BLANKLINE>
 <interactive>:...
@@ -1632,19 +1633,6 @@ Nil
       In the expression: take d4 (1 :> 2 :> Nil)
       In an equation for ‘it’: it = take d4 (1 :> 2 :> Nil)
 
-#elif __GLASGOW_HASKELL__ == 900
->>> take d4               (1:>2:>Nil)
-<BLANKLINE>
-<interactive>:...
-    • Couldn't match type ‘4 + n0’ with ‘2’
-      Expected: Vec (4 + n0) a
-        Actual: Vec 2 a
-                    ^
-      The type variable ‘n0’ is ambiguous
-    • In the second argument of ‘take’, namely ‘(1 :> 2 :> Nil)’
-      In the expression: take d4 (1 :> 2 :> Nil)
-      In an equation for ‘it’: it = take d4 (1 :> 2 :> Nil)
-
 #else
 >>> take d4               (1:>2:>Nil)
 <BLANKLINE>