summaryrefslogtreecommitdiff
path: root/src/Asset.hs
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2025-04-20 22:58:31 +0200
committerRoman Smrž <roman.smrz@seznam.cz>2025-04-22 19:39:47 +0200
commit47ec9619f90af3264b11ad26654610a043ed0d8d (patch)
tree97f1f629ec11b06ceba3825dd8895292c9ea538d /src/Asset.hs
parent57671619f81dbdcafa1fce4f91956bc647a57588 (diff)
Conversions for variable expansion in ExprType class
Diffstat (limited to 'src/Asset.hs')
-rw-r--r--src/Asset.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Asset.hs b/src/Asset.hs
index 550438b..72ffd54 100644
--- a/src/Asset.hs
+++ b/src/Asset.hs
@@ -5,6 +5,7 @@ module Asset (
import Data.Text (Text)
import Data.Text qualified as T
+import Data.Typeable
import Script.Expr.Class
@@ -28,3 +29,5 @@ instance ExprType Asset where
instance ExprType AssetPath where
textExprType _ = "filepath"
textExprValue = ("filepath:" <>) . textAssetPath
+
+ exprExpansionConvTo = cast textAssetPath