Make (++) poly kinded.

This commit is contained in:
Paweł Nowak 2014-11-22 18:42:22 +01:00
parent ca5e0a9a00
commit 157aac0b38

View File

@ -111,7 +111,7 @@ class HUnfoldable t where
hListParser :: HParser (Rep t) t
type family (++) (a :: [*]) (b :: [*]) :: [*] where
type family (++) (a :: [k]) (b :: [k]) :: [k] where
'[] ++ b = b
(a ': as) ++ b = a ': (as ++ b)