212b602 · elk · git.iko.soy

src/Parse/Kernel.hs+2−2

compare with master

unifiedsplit

@@ -140,7 +140,7 @@ type Imports =

140

141

142destructImport :: Src.Import -> Imports

143−destructImport (Src.Import (A.A _ moduleName) maybeAlias exposing) =

143+destructImport (Src.Import (A.At _ moduleName) maybeAlias exposing) =

144 let

145 shortName =

146 case maybeAlias of

@@ -168,7 +168,7 @@ destructImport (Src.Import (A.A _ moduleName) maybeAlias exposing) =

168

169

170exposedToName :: A.Located Src.Exposed -> N.Name

171−exposedToName (A.A _ exposed) =

171+exposedToName (A.At _ exposed) =

172 case exposed of

173 Src.Lower name ->

174 name

src/Parse/Parse.hs+1−1

@@ -27,7 +27,7 @@ program src =

27 Right modul ->

28 Validate.validate modul

29

30− Left (A.A region syntaxError) ->

30+ Left (A.At region syntaxError) ->

31 Result.throw region syntaxError

32

33

src/Parse/Pattern.hs+1−1

@@ -221,7 +221,7 @@ exprHelp start patterns (pattern, _end, sPos) =

221

222

223cons :: Src.Pattern -> Src.Pattern -> Src.Pattern

224−cons tl@(A.A (R.Region _ end) _) hd@(A.A (R.Region start _) _) =

224+cons tl@(A.At (R.Region _ end) _) hd@(A.At (R.Region start _) _) =

225 A.at start end (Src.PCons hd tl)

226

227

src/Parse/Primitives.hs+1−1

@@ -46,7 +46,7 @@ runAt startRow startColumn (Parser parser) (B.PS fp offset length) =

46 let

47 pos = R.Position row col

48 mkError overallRegion subRegion =

49− Left (A.A overallRegion (E.Parse subRegion problem))

49+ Left (A.At overallRegion (E.Parse subRegion problem))

50 in

51 case problem of

52 E.BadChar endCol ->