Hlint adjustment

2016-09-11 16:22:32 -07:00
parent 25c2cd1f2d
commit 362ad7b7d0
2 changed files with 6 additions and 8 deletions
@@ -106,9 +106,7 @@ accessibleProcs =
  addName pd = (pdName pd, pd)

  parseArgs :: Text -> [PgArg]
-  parseArgs = mapMaybe toks2arg
-                . map (split (==' ') . strip)
-                . split (==',')
+  parseArgs = mapMaybe (toks2arg . split (==' ') . strip) . split (==',')

  toks2arg :: [Text] -> Maybe PgArg
  toks2arg (x:y:"DEFAULT":_) = Just (PgArg x y False)