Remove RenderType datatype

src/StrictHelp.hs

@@ -0,0 +1,12 @@
+module StrictHelp
+    where
+
+{- | In order to force a list, apply with seq. -}
+forceSpine :: Foldable t => t a -> ()
+forceSpine = foldr (const id) ()
+
+forceFoldable :: Foldable t => t a -> t a
+forceFoldable f = forceSpine f `seq` f
+
+forceElements :: Foldable t => t a -> ()
+forceElements = foldr seq ()