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

Import GHC.Show without qualifying it

Browse Source
This commit is contained in:
Diogo Biazus
2016-06-30 08:35:42 -04:00
parent 7b9eb86fd0
commit 578ae6b5dd
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/PostgREST/Types.hs
+3 -3
View File
@@ -1,6 +1,6 @@
module PostgREST.Types where module PostgREST.Types where
import Protolude import Protolude
import qualified GHC.Show as S import qualified GHC.Show
import Data.Aeson import Data.Aeson
import qualified Data.ByteString as BS import qualified Data.ByteString as BS
import qualified Data.ByteString.Lazy as BL import qualified Data.ByteString.Lazy as BL
@@ -54,12 +54,12 @@ data PrimaryKey = PrimaryKey {
} deriving (Show, Eq) } deriving (Show, Eq)
data OrderDirection = OrderAsc | OrderDesc deriving (Eq) data OrderDirection = OrderAsc | OrderDesc deriving (Eq)
instance S.Show OrderDirection where instance Show OrderDirection where
show OrderAsc = "asc" show OrderAsc = "asc"
show OrderDesc = "desc" show OrderDesc = "desc"
data OrderNulls = OrderNullsFirst | OrderNullsLast deriving (Eq) data OrderNulls = OrderNullsFirst | OrderNullsLast deriving (Eq)
instance S.Show OrderNulls where instance Show OrderNulls where
show OrderNullsFirst = "nulls first" show OrderNullsFirst = "nulls first"
show OrderNullsLast = "nulls last" show OrderNullsLast = "nulls last"