polish code

[haskell/symantic.git] / Language / Symantic / Repr / Text.hs

diff --git a/Language/Symantic/Repr/Text.hs b/Language/Symantic/Repr/Text.hs
index e98317a95b27e26f9656192910e7f0efb6c8d5fe..00b6f7654cce7bc73aa811f82fb7e0a0a3dfc4e1 100644 (file)
--- a/Language/Symantic/Repr/Text.hs
+++ b/Language/Symantic/Repr/Text.hs
@@ -37,6 +37,8 @@ text_from_expr r = unRepr_Text r precedence_Toplevel 0
 -- * Helpers
 
 -- ** Helpers for lambda applications
+repr_text_app0 :: Text -> Repr_Text h
+repr_text_app0 name = Repr_Text $ \_p _v -> name
 repr_text_app1
  :: Text
  -> Repr_Text a1