Tiny refactor
Tiny refactor

sdiehl/ghc,sdiehl/ghc,ezyang/ghc,ezyang/ghc,ezyang/ghc,ezyang/ghc,shlevy/ghc,ezyang/ghc,shlevy/ghc,shlevy/ghc,ezyang/ghc,sdiehl/ghc,shlevy/ghc,shlevy/ghc,shlevy/ghc,ezyang/ghc,sdiehl/ghc,sdiehl/ghc,sdiehl/ghc,sdiehl/ghc,shlevy/ghc