d93de65 · elk · git.iko.soy

git.iko.soy/elk

Add Elm.Name.value NOINLINE constant

commitd93de65de1aa7e5dc321b06d24fbc06010bda731 authorEvan Czaplicki <evancz@users.noreply.github.com> dateFri 1 Dec 2017, 11:03 (9 years ago) parent9b18f28

2 files changed+11−2

compare with master

unifiedsplit

src/Canonicalize/Effects.hs+1−1 src/Elm/Name.hs+10−1

src/Canonicalize/Effects.hs+1−1

@@ -190,7 +190,7 @@ primitives =

190190

191191isJson :: ModuleName.Canonical -> N.Name -> Bool

192192isJson home name =

193− home == ModuleName.jsonEncode && name == "Value"

193+ home == ModuleName.jsonEncode && name == N.value

194194

195195

196196isList :: ModuleName.Canonical -> N.Name -> Bool

src/Elm/Name.hs+10−1

@@ -6,7 +6,7 @@ module Elm.Name

66 , int, float, bool, char, string

77 , maybe, list, array

88 , task, router, cmd, sub

9− , shader, debug, utils, negate

9+ , shader, debug, utils, negate, value

1010 )

1111 where

1212

@@ -15,6 +15,10 @@ import Prelude hiding (maybe, negate)

1515import qualified Data.Text as Text

1616

1717

18+

19+-- NAME

20+

21+

1822type Name = Text.Text

1923

2024

@@ -105,3 +109,8 @@ utils = "Utils"

105109{-# NOINLINE negate #-}

106110negate :: Name

107111negate = "negate"

112+

113+

114+{-# NOINLINE value #-}

115+value :: Name

116+value = "Value"