Pass raw template text to lambda

JustusAdam · Feb 26, 2021 · 4f51bce · 4f51bce
1 parent 7a8bb23
commit 4f51bce
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/Text/Mustache/Render.hs b/src/Text/Mustache/Render.hs
@@ -252,9 +252,8 @@ instance ToMustache (STree -> SubM Text) where
     return $ ASTree [TextBlock text] text
 
 instance ToMustache (Text -> Text) where
-  toMustache f = Lambda $ \_ -> do
-    let text = undefined
-        result = f text
+  toMustache f = Lambda $ \tree -> do
+    let result = f $ rawText tree
 
     case parse "lambda" result of
       Right tree' -> return tree'