beautiful

src/Gyehoek/Sexp.hs

@@ -38,6 +38,7 @@ module Gyehoek.Sexp
   , toSexp
   , fromSexp
   , stripLocation
+  , format
   )
   where
 
@@ -87,6 +88,9 @@ sexp = iso
   (either error id . encode)
   (either error id . decode)
 
+format :: Sexp -> Text
+format = decodeUtf8 . view strict . SL.format
+
 encode :: SexpIso a => a -> Either String Text
 encode = encodeWith sexpIso