setStubDir    f d = d{ stubDir    = Just f, includePaths = f : includePaths d }
setStubDir    f d = d{ stubDir    = Just f, includePaths = f : includePaths d }
setStubDir    f d = d{ stubDir    = Just f, includePaths = f : includePaths d }