From f9a9d6fdcdd2ee0e6bb1882ed2eba936535a52ac Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Mon, 23 Feb 2015 10:46:13 -0500
Subject: [PATCH] Fix hlint warnings.

---
 src/TSN/DbImport.hs   | 3 +--
 src/TSN/XML/Odds.hs   | 2 +-
 src/TSN/XML/Scores.hs | 2 +-
 3 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/TSN/DbImport.hs b/src/TSN/DbImport.hs
index 066b5a0..7a420d3 100644
--- a/src/TSN/DbImport.hs
+++ b/src/TSN/DbImport.hs
@@ -27,12 +27,11 @@ import Control.Monad ( forM_ )
 import Control.Monad.IO.Class ( MonadIO( liftIO ) )
 import qualified Data.Map as Map ( elems )
 import Database.Groundhog ( executeRaw )
-import Database.Groundhog.Core ( NamedMigrations )
 import Database.Groundhog.Generic (
   createMigration,
   getQueries,
   mergeMigrations )
-import Database.Groundhog.Core ( Migration, PersistBackend )
+import Database.Groundhog.Core ( Migration, NamedMigrations, PersistBackend )
 import Network.Services.TSN.Report ( report_info )
 
 
diff --git a/src/TSN/XML/Odds.hs b/src/TSN/XML/Odds.hs
index 95aecbe..a07f430 100644
--- a/src/TSN/XML/Odds.hs
+++ b/src/TSN/XML/Odds.hs
@@ -652,7 +652,7 @@ pickle_casino =
   xpElem "Casino" $
   xpWrap (from_tuple, H.convert) $
   xpTriple
-    (xpAttr "ClientID" $ xp_attr_option)
+    (xpAttr "ClientID" xp_attr_option)
     (xpAttr "Name" $ xpOption xpText)
     (xpOption xpText)
   where
diff --git a/src/TSN/XML/Scores.hs b/src/TSN/XML/Scores.hs
index aa847a8..858e62b 100644
--- a/src/TSN/XML/Scores.hs
+++ b/src/TSN/XML/Scores.hs
@@ -444,7 +444,7 @@ pickle_status :: PU ScoreGameStatus
 pickle_status =
   xpElem "status" $
     xpWrap (from_tuple, to_tuple') $
-      xpTriple (xpAttr "numeral" $ xp_attr_option)
+      xpTriple (xpAttr "numeral" xp_attr_option)
                (xpOption $ xpAttr "type" $ xpOption xpText)
                xpText
   where
-- 
2.43.2