Blithely suppress orphan warnings

src/Types.hs

@@ -1,3 +1,5 @@
+{-# OPTIONS_GHC -fno-warn-orphans #-}
+
 module Types(SqlRow(SqlRow), getRow) where
 
 import Database.HDBC (toSql, SqlValue(..))
@@ -37,10 +39,6 @@ instance JSON.ToJSON SqlValue where
   toJSON (SqlLocalTimeOfDay t) = JSON.toJSON $ show t
   toJSON (SqlLocalTime t)      = JSON.toJSON $ show t
   toJSON SqlNull               = JSON.Null
-  {-toJSON (SqlZonedLocalTimeOfDay t tz)-}
-  {-toJSON (SqlZonedTime t)-}
-  {-toJSON (SqlDiffTime t)-}
-  {-toJSON (SqlPOSIXTime t)-}
   toJSON x                     = JSON.toJSON $ show x