f535143 · elk · git.iko.soy

cosmetic: get rid of a (>>) in favor of a do-block

commitf5351438ee0dad0bda578fa2edaf19b183e134e4 authorEvan Czaplicki <info@elm-lang.org> dateMon 20 Jan 2014, 14:04 (13 years ago) parentfc154f9

1 file changed+3−2

unifiedsplit

compiler/Build/File.hs+3−2

@@ -152,5 +152,6 @@ compile number filePath =

152152 L.hPut handle (Binary.encode (name, interfs))

153153

154154update :: String -> M.ModuleInterface -> Bool -> Build ()

155−update name inter wasUpdated = modify (Map.insert name (wasUpdated, inter))

156− >> tell (Last . Just $ name)

155+update name inter wasUpdated =

156+ do modify (Map.insert name (wasUpdated, inter))

157+ tell (Last . Just $ name)