ffe32c7 · elk · git.iko.soy

a bit more style

commitffe32c7f8504e8625d31573f63a43dbcc356d31b authorIzaak Meckler <ihmeckler@gmail.com> dateMon 4 May 2015, 18:26 (11 years ago) parent2aa7dcd

2 files changed+6−2

unifiedsplit

src/CheckMatch.hs+1

@@ -250,6 +250,7 @@ checkBody interfaces =

250250 do pComp <- complement region pp

251251 go (concatMap (\q -> mapMaybe (intersection q) pComp) unhandled) ps'

252252

253+

253254-- Util

254255concatMapM :: Monad m => (a -> m [b]) -> [a] -> m [b]

255256concatMapM f =

src/Compile.hs+5−2

@@ -47,8 +47,11 @@ compile user projectName interfaces source =

4747 let body = (Module.body canonicalModule) { Module.types = types }

4848

4949 case CheckMatch.checkBody interfaces body of

50− Left (A.A r matchError) -> Result.throw r (Error.CheckMatch matchError)

51− Right matchWarnings -> Result.addWarnings (map (A.map Warning.MatchWarning) matchWarnings) (return ())

50+ Left (A.A r matchError) ->

51+ Result.throw r (Error.CheckMatch matchError)

52+

53+ Right matchWarnings ->

54+ Result.addWarnings (map (A.map Warning.MatchWarning) matchWarnings) (return ())

5255

5356 return $ canonicalModule { Module.body = body }

5457