diff options
Diffstat (limited to 'src/Asset.hs')
| -rw-r--r-- | src/Asset.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Asset.hs b/src/Asset.hs index 72ffd54..2b14dcf 100644 --- a/src/Asset.hs +++ b/src/Asset.hs @@ -1,6 +1,6 @@ module Asset ( Asset(..), - AssetPath(..), + AssetPath(..), textAssetPath, ) where import Data.Text (Text) @@ -19,7 +19,7 @@ textAssetPath :: AssetPath -> Text textAssetPath (AssetPath path) = T.pack path instance ExprType Asset where - textExprType _ = "asset" + textExprType _ = "Asset" textExprValue asset = "asset:" <> textAssetPath (assetPath asset) recordMembers = @@ -27,7 +27,7 @@ instance ExprType Asset where ] instance ExprType AssetPath where - textExprType _ = "filepath" + textExprType _ = "Filepath" textExprValue = ("filepath:" <>) . textAssetPath exprExpansionConvTo = cast textAssetPath |