-- The above is a bit hard to understand. An equivalent definition is:
--
--   readConfigFile fileName = FileIO.readFile fileName >>= return . readConfigList . lines
--
-- And all this was derived by desugaring this do syntax:
--
--   readConfigFile fileName = do
--       theFile <- File.readFile fileName
--       let theLines = lines theFile
--       return (readConfigList theLines)

emptyConfig :: Dictionary
emptyConfig = Map.empty
emptyConfig :: Dictionary
emptyConfig = Map.empty
emptyConfig = Map.empty