Fix hlint warnings.

diff --git a/src/TSN/DbImport.hs b/src/TSN/DbImport.hs
index 066b5a0c36e7e8ec2a72dfc687224a03ff3b1b79..7a420d380afc38bbc2903b9f334fc4b253ae577e 100644 (file)
--- 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 95aecbed22767a28fb03a071e94790ff2e7003b7..a07f4308c34d85e6205cb4a4b8f84d44162a4d33 100644 (file)
--- 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 aa847a837ee1d9dc68a47c01c10db2668506da43..858e62bc1a6d53ca50301e21de5e120eb4d561bb 100644 (file)
--- 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