Update PgQuery.hs

I'm a bit baffled nobody noticed this before :P

Anyhow, without it order does not work.

Thanks,
Cheers

src/PgQuery.hs

@@ -162,7 +162,7 @@ orderParse q =
 orderParseTerm :: Text -> Maybe OrderTerm
 orderParseTerm s =
   case split (=='.') s of
-       [d,c] ->
+       [c,d] ->
          if d `elem` ["asc", "desc"]
             then Just $ OrderTerm c $
               if d == "asc" then "asc" else "desc"