error :: forall (r :: RuntimeRep). forall (a :: TYPE r). HasCallStack => [Char] -> a
есть вот такая сигнатура в прелюдии, которая содержит целую кучу нестандартных вещей на поверхности. а уж что там под капотом у seq — стандарту вообще плевать должно быть