Skip to content
Snippets Groups Projects
Commit 670b3546 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix warnings in Cabal

parent 4bdecf35
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Distribution/Simple/Program.hs
+ 4
− 4
View file @ 670b3546
...@@ -219,12 +219,12 @@ defaultProgramConfiguration = ...@@ -219,12 +219,12 @@ defaultProgramConfiguration =
-- internal helpers: -- internal helpers:
updateUnconfiguredProgs :: (UnconfiguredProgs -> UnconfiguredProgs) updateUnconfiguredProgs :: (UnconfiguredProgs -> UnconfiguredProgs)
-> ProgramConfiguration -> ProgramConfiguration -> ProgramConfiguration -> ProgramConfiguration
updateUnconfiguredProgs f conf = updateUnconfiguredProgs update conf =
conf { unconfiguredProgs = f (unconfiguredProgs conf) } conf { unconfiguredProgs = update (unconfiguredProgs conf) }
updateConfiguredProgs :: (ConfiguredProgs -> ConfiguredProgs) updateConfiguredProgs :: (ConfiguredProgs -> ConfiguredProgs)
-> ProgramConfiguration -> ProgramConfiguration -> ProgramConfiguration -> ProgramConfiguration
updateConfiguredProgs f conf = updateConfiguredProgs update conf =
conf { configuredProgs = f (configuredProgs conf) } conf { configuredProgs = update (configuredProgs conf) }
-- Read & Show instances are based on listToFM -- Read & Show instances are based on listToFM
-- Note that we only serialise the configured part of the database, this is -- Note that we only serialise the configured part of the database, this is
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment