jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Blithely suppress orphan warnings

Browse Source
This commit is contained in:
Joe Nelson
2014-08-12 21:09:06 -07:00
parent 276cea4a02
commit 78d82e7fda
1 changed files with 23 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Types.hs
+2 -4
View File
@@ -1,3 +1,5 @@
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Types(SqlRow(SqlRow), getRow) where module Types(SqlRow(SqlRow), getRow) where
import Database.HDBC (toSql, SqlValue(..)) import Database.HDBC (toSql, SqlValue(..))
@@ -37,10 +39,6 @@ instance JSON.ToJSON SqlValue where
toJSON (SqlLocalTimeOfDay t) = JSON.toJSON $ show t toJSON (SqlLocalTimeOfDay t) = JSON.toJSON $ show t
toJSON (SqlLocalTime t) = JSON.toJSON $ show t toJSON (SqlLocalTime t) = JSON.toJSON $ show t
toJSON SqlNull = JSON.Null toJSON SqlNull = JSON.Null
{-toJSON (SqlZonedLocalTimeOfDay t tz)-}
{-toJSON (SqlZonedTime t)-}
{-toJSON (SqlDiffTime t)-}
{-toJSON (SqlPOSIXTime t)-}
toJSON x = JSON.toJSON $ show x toJSON x = JSON.toJSON $ show x