Correctly generate a type for markdown blocks
commit8e54751626d3fc06579cc4a2635cc6ff5bb2cfdd
authorEvan Czaplicki <info@elm-lang.org>
dateThu 1 Aug 2013, 17:19 (13 years ago)
parent20e2ff0
compiler/Type/Constrain/Expression.hs+1−1
@@ -134,7 +134,7 @@ constrain env (L span expr) tipe =
134134 return . ex vars . and $ tipe === recordType : cs
135135
136136 Markdown _ ->
137− return $ tipe === Env.get env Env.types "Element"
137+ return ("Graphics.Element.markdown" <? tipe)
138138
139139 Let defs body ->
140140 do c <- case body of
libraries/Graphics/Element.elm+3
@@ -114,6 +114,9 @@ tiledImage : Int -> Int -> String -> Element
114114tiledImage w h src =
115115 newElement w h (Image Tiled w h (fromString src))
116116
117+markdown : Element
118+markdown = Native.Utils.undefined
119+
117120data Three = P | Z | N
118121data Pos = Absolute Int | Relative Float
119122type Position = { horizontal : Three, vertical : Three, x : Pos, y : Pos }