X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhtsn-import.git;a=blobdiff_plain;f=src%2FTSN%2FXML%2FOdds.hs;fp=src%2FTSN%2FXML%2FOdds.hs;h=a07f4308c34d85e6205cb4a4b8f84d44162a4d33;hp=95aecbed22767a28fb03a071e94790ff2e7003b7;hb=f9a9d6fdcdd2ee0e6bb1882ed2eba936535a52ac;hpb=f0425854304197ab5ad47293b27b2e0b188cb844

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