Fix all hlint errors except for pattern error

2016-06-18 10:18:43 +08:00
parent 4b0c5cb36f
commit 74ea4aba37
3 changed files with 12 additions and 12 deletions
@@ -49,7 +49,7 @@ main = do

  conf' <- readOptions
  host  <- getHostName
-  conf  <- return conf' { configHost = host }
+  let conf = conf'{configHost = host}
  let port = configPort conf
      pgSettings = cs (configDatabase conf)
      appSettings = setPort port