From 51c7c1977fc7d21e11d3be55d4c8469e17598228 Mon Sep 17 00:00:00 2001
From: "Niels G. W. Serup" <ngws@metanohi.name>
Date: Wed, 25 Sep 2024 23:13:23 +0200
Subject: [PATCH] Add stub for new function

---
 byg/src/Evaluation/Function.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/byg/src/Evaluation/Function.hs b/byg/src/Evaluation/Function.hs
index 81fbeff..9b67cbd 100644
--- a/byg/src/Evaluation/Function.hs
+++ b/byg/src/Evaluation/Function.hs
@@ -9,6 +9,9 @@ evalFunction f x = case (f, x) of
   (JoinPaths, Tuple (String _, String _)) ->
     String undefined
 
+  (FileComponents, String _) ->
+    Tuple (String undefined, String undefined)
+
   (IsImageExtension, String _) ->
     Bool undefined