bad core parser just to make development easier

REPLACE WITH A REAL PARSER EVENTUALLY!!!!!!!!!!!!!!

src/Data/Pretty.hs

@@ -5,6 +5,7 @@ module Data.Pretty
     , precPretty
     , prettyPrint
     , prettyShow
+    , iShow
     , iBracket
     , withPrec
     , bracketPrec
@@ -69,6 +70,9 @@ withPrec n s p
 bracketPrec :: Int -> Int -> ISeq -> ISeq
 bracketPrec n p s = withPrec n s p
 
+iShow :: (Show a) => a -> ISeq
+iShow = IStr . show
+
 ----------------------------------------------------------------------------------
 
 instance (Pretty a) => Pretty (Maybe a) where