Skip to content

Commit 3bf61ca

Browse files
committed
code style + typo fix
1 parent 7e10a19 commit 3bf61ca

File tree

1 file changed

+5
-9
lines changed

1 file changed

+5
-9
lines changed

src/Database/PostgreSQL/Query/Types.hs

+5-9
Original file line numberDiff line numberDiff line change
@@ -67,8 +67,7 @@ import qualified Data.Text.Encoding as T
6767

6868
-- | type to put and get from db 'inet' and 'cidr' typed postgresql
6969
-- fields. This should be in postgresql-simple in fact.
70-
newtype InetText =
71-
InetText
70+
newtype InetText = InetText
7271
{ unInetText :: T.Text
7372
} deriving ( IsString, Eq, Ord, Read, Show
7473
, Typeable, Monoid, ToField )
@@ -90,7 +89,7 @@ instance FromField InetText where
9089

9190

9291

93-
{- | Dote separated field name. Each element in nested list will be
92+
{- | Dot-separated field name. Each element in nested list will be
9493
properly quoted and separated by dot. It also have instance of
9594
'ToSqlBuilder' and 'IsString` so you can:
9695
@@ -116,8 +115,7 @@ FN ["user","name"]
116115
117116
-}
118117

119-
newtype FN =
120-
FN [Text]
118+
newtype FN = FN [Text]
121119
deriving (Ord, Eq, Show, Monoid, Typeable, Generic)
122120

123121
instance ToSqlBuilder FN where
@@ -166,8 +164,7 @@ UPDATE tbl SET name = 'name', size = 10, lenght = 20
166164
167165
-}
168166

169-
newtype MarkedRow =
170-
MR
167+
newtype MarkedRow = MR
171168
{ unMR :: [(FN, SqlBuilder)]
172169
} deriving (Monoid, Typeable, Generic)
173170

@@ -283,8 +280,7 @@ instance (TransactionSafe m, Monoid w) => TransactionSafe (WS.WriterT w m)
283280
-- connection you can run queries in this monad using 'runPgMonadT'. Or you
284281
-- can use this transformer to run sequence of queries using same
285282
-- connection with 'launchPG'.
286-
newtype PgMonadT m a =
287-
PgMonadT
283+
newtype PgMonadT m a = PgMonadT
288284
{ unPgMonadT :: ReaderT Connection m a
289285
} deriving ( Functor, Applicative, Monad , MonadWriter w
290286
, MonadState s, MonadError e, MonadTrans

0 commit comments

Comments
 (0)