From 9e75fa93650b4f1a08d94f4225a243bcc50445ae Mon Sep 17 00:00:00 2001
From: Jake Wheat <jakewheatmail@gmail.com>
Date: Tue, 31 Dec 2013 11:44:10 +0200
Subject: [PATCH] hlint

---
 Language/SQL/SimpleSQL/Parser.lhs | 5 +++--
 Language/SQL/SimpleSQL/Pretty.lhs | 2 +-
 TODO                              | 4 ----
 3 files changed, 4 insertions(+), 7 deletions(-)

diff --git a/Language/SQL/SimpleSQL/Parser.lhs b/Language/SQL/SimpleSQL/Parser.lhs
index cfc7e76..5e7a93b 100644
--- a/Language/SQL/SimpleSQL/Parser.lhs
+++ b/Language/SQL/SimpleSQL/Parser.lhs
@@ -1,3 +1,4 @@
+
 > {-# LANGUAGE TupleSections #-}
 > -- | This is the module with the parser functions.
 > module Language.SQL.SimpleSQL.Parser
@@ -275,7 +276,7 @@ operatorname(firstArg keyword0 arg0 keyword1 arg1 etc.)
 >               -- check we haven't parsed the first
 >               -- keyword as an identifier
 >               guard (case (e,kws) of
->                   (Iden (Name i), ((k,_):_)) | map toLower i == k -> False
+>                   (Iden (Name i), (k,_):_) | map toLower i == k -> False
 >                   _ -> True)
 >               return e
 >     fa <- case firstArg of
@@ -495,7 +496,7 @@ can be symbols (a + b), single keywords (a and b) or multiple keywords
 >          ,binarySym "|" E.AssocRight
 >          ,binaryKeyword "like" E.AssocNone
 >          ,binaryKeyword "overlaps" E.AssocNone]
->          ++ map (flip binaryKeywords E.AssocNone)
+>          ++ map (`binaryKeywords` E.AssocNone)
 >          ["not like"
 >          ,"is similar to"
 >          ,"is not similar to"
diff --git a/Language/SQL/SimpleSQL/Pretty.lhs b/Language/SQL/SimpleSQL/Pretty.lhs
index 4c8542c..a87586b 100644
--- a/Language/SQL/SimpleSQL/Pretty.lhs
+++ b/Language/SQL/SimpleSQL/Pretty.lhs
@@ -92,7 +92,7 @@
 
 > valueExpr (SpecialOpK nm fs as) =
 >     name nm <> parens (sep $ catMaybes
->         ((fmap valueExpr fs)
+>         (fmap valueExpr fs
 >          : map (\(n,e) -> Just (text n <+> valueExpr e)) as))
 
 > valueExpr (PrefixOp f e) = name f <+> valueExpr e
diff --git a/TODO b/TODO
index 2ce0038..c73ccc0 100644
--- a/TODO
+++ b/TODO
@@ -1,9 +1,5 @@
 = next release
 
-New fixity code + extensive tests.
-check fixity in query expr level?
-check fixity in tablerefs
-
 try and use the proper css theme
   create a header like in the haddock with simple-sql-parser +
     contents link