From 47ec9619f90af3264b11ad26654610a043ed0d8d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sun, 20 Apr 2025 22:58:31 +0200 Subject: Conversions for variable expansion in ExprType class --- src/Asset.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/Asset.hs') 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 -- cgit v1.2.3