Do hlint 2.1 hints

2018-11-06 11:54:10 -05:00
parent 63ead89470
commit dadfe965b9
23 changed files with 49 additions and 50 deletions
@@ -60,7 +60,7 @@ makeProperty pks c = (colName c, Inline s)
      ]
    d =
      if length n > 1 then
-        Just $ append (fromMaybe "" ((`append` "\n\n") <$> colDescription c)) (intercalate "\n" n)
+        Just $ append (maybe "" (`append` "\n\n") $ colDescription c) (intercalate "\n" n)
      else
        colDescription c
    s =