Suggestion in buildOrReplLib in module Distribution.Simple.GHC: Use guards ▫︎ Found: "buildVanillaShared\n = if not has_code then\n vanilla\n else\n if useDynToo then\n do runGhcProg vanillaSharedOpts\n case (hpcdir Hpc.Dyn, hpcdir Hpc.Vanilla) of\n (Flag dynDir, Flag vanillaDir)\n -> copyDirectoryRecursive verbosity dynDir vanillaDir\n _ -> return ()\n else\n if isGhcDynamic then\n do shared\n vanilla\n else\n do vanilla\n shared" ▫︎ Perhaps: "buildVanillaShared\n | not has_code = vanilla\n | useDynToo\n = do runGhcProg vanillaSharedOpts\n case (hpcdir Hpc.Dyn, hpcdir Hpc.Vanilla) of\n (Flag dynDir, Flag vanillaDir)\n -> copyDirectoryRecursive verbosity dynDir vanillaDir\n _ -> return ()\n | isGhcDynamic\n = do shared\n vanilla\n | otherwise\n = do vanilla\n shared"