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

Improve style

Browse Source
This commit is contained in:
Joe Nelson
2014-06-22 12:56:19 -07:00
parent 735a080cb1
commit dbf8e388ec
1 changed files with 12 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Main.hs
+12 -14
View File
@@ -1,8 +1,7 @@
{-# LANGUAGE OverloadedStrings, DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-}
module Main where module Main where
import GHC.Generics
import Data.ByteString.Lazy import Data.ByteString.Lazy
import Data.Text import Data.Text
@@ -31,10 +30,9 @@ instance FromRow Table where
instance JSON.ToJSON Table where instance JSON.ToJSON Table where
toJSON v = JSON.object [ toJSON v = JSON.object [
"schema" .= (viewSchema v), "schema" .= viewSchema v
"name" .= (viewName v), , "name" .= viewName v
"insertable" .= (viewInsertable v) , "insertable" .= viewInsertable v ]
]
toBool :: String -> Bool toBool :: String -> Bool
toBool = (== "YES") toBool = (== "YES")
@@ -59,14 +57,14 @@ instance FromRow Column where
instance JSON.ToJSON Column where instance JSON.ToJSON Column where
toJSON c = JSON.object [ toJSON c = JSON.object [
"schema" .= (colSchema c) "schema" .= colSchema c
, "name" .= (colName c) , "name" .= colName c
, "position" .= (colPosition c) , "position" .= colPosition c
, "nullable" .= (colNullable c) , "nullable" .= colNullable c
, "type" .= (colType c) , "type" .= colType c
, "updatable" .= (colUpdatable c) , "updatable" .= colUpdatable c
, "maxLen" .= (colMaxLen c) , "maxLen" .= colMaxLen c
, "precision" .= (colPrecision c) ] , "precision" .= colPrecision c ]
tables :: String -> Connection -> IO [Table] tables :: String -> Connection -> IO [Table]
tables s conn = query conn q $ Only s tables s conn = query conn q $ Only s