X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FXML%2FOdds.hs;h=bbfff251a8874f5d84bceac38a935df7a50c989c;hb=000318e2a4b56772a9ef219a13e960acea6453b6;hp=9b35736b14aa7152ed48d314bc3ef5b59ea91844;hpb=45f12af91c337280dbdface5b84a8fa6637f1d2b;p=dead%2Fhtsn-import.git

diff --git a/src/TSN/XML/Odds.hs b/src/TSN/XML/Odds.hs
index 9b35736..bbfff25 100644
--- a/src/TSN/XML/Odds.hs
+++ b/src/TSN/XML/Odds.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE DeriveDataTypeable #-}
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE GADTs #-}
@@ -250,9 +249,9 @@ pickle_message =
               (xpElem "Title" xpText)
               (xpElem "Line_Time" xpText)
               pickle_notes
-              (xpList $ pickle_game)
+              (xpList pickle_game)
               pickle_notes
-              (xpList $ pickle_game)
+              (xpList pickle_game)
               (xpElem "time_stamp" xpText)
   where
     from_tuple = uncurryN MessageXml
@@ -271,7 +270,7 @@ pickle_message =
     pickle_notes :: PU String
     pickle_notes =
       xpWrap (to_string, from_string) $
-          (xpList $ xpElem "Notes" xpText)
+        xpList (xpElem "Notes" xpText)
       where
         from_string :: String -> [String]
         from_string = split "\n"