git.iko.soy/elk
on master help sign in
cosmetic: get rid of a (>>) in favor of a do-block
f535143Evan Czaplicki
compiler/Build/File.hs+3−2
compare with master
unifiedsplit
@@ -152,5 +152,6 @@ compile number filePath =
152 L.hPut handle (Binary.encode (name, interfs))
152 L.hPut handle (Binary.encode (name, interfs))
153
153
154update :: String -> M.ModuleInterface -> Bool -> Build ()
154update :: String -> M.ModuleInterface -> Bool -> Build ()
155+update name inter wasUpdated =
155−update name inter wasUpdated = modify (Map.insert name (wasUpdated, inter))
156+ do modify (Map.insert name (wasUpdated, inter))
156− >> tell (Last . Just $ name)
157+ tell (Last . Just $ name)