@@ -67,8 +67,7 @@ import qualified Data.Text.Encoding as T
67
67
68
68
-- | type to put and get from db 'inet' and 'cidr' typed postgresql
69
69
-- fields. This should be in postgresql-simple in fact.
70
- newtype InetText =
71
- InetText
70
+ newtype InetText = InetText
72
71
{ unInetText :: T. Text
73
72
} deriving ( IsString , Eq , Ord , Read , Show
74
73
, Typeable , Monoid , ToField )
@@ -90,7 +89,7 @@ instance FromField InetText where
90
89
91
90
92
91
93
- {- | Dote separated field name. Each element in nested list will be
92
+ {- | Dot- separated field name. Each element in nested list will be
94
93
properly quoted and separated by dot. It also have instance of
95
94
'ToSqlBuilder' and 'IsString` so you can:
96
95
@@ -116,8 +115,7 @@ FN ["user","name"]
116
115
117
116
-}
118
117
119
- newtype FN =
120
- FN [Text ]
118
+ newtype FN = FN [Text ]
121
119
deriving (Ord , Eq , Show , Monoid , Typeable , Generic )
122
120
123
121
instance ToSqlBuilder FN where
@@ -166,8 +164,7 @@ UPDATE tbl SET name = 'name', size = 10, lenght = 20
166
164
167
165
-}
168
166
169
- newtype MarkedRow =
170
- MR
167
+ newtype MarkedRow = MR
171
168
{ unMR :: [(FN , SqlBuilder )]
172
169
} deriving (Monoid , Typeable , Generic )
173
170
@@ -283,8 +280,7 @@ instance (TransactionSafe m, Monoid w) => TransactionSafe (WS.WriterT w m)
283
280
-- connection you can run queries in this monad using 'runPgMonadT'. Or you
284
281
-- can use this transformer to run sequence of queries using same
285
282
-- connection with 'launchPG'.
286
- newtype PgMonadT m a =
287
- PgMonadT
283
+ newtype PgMonadT m a = PgMonadT
288
284
{ unPgMonadT :: ReaderT Connection m a
289
285
} deriving ( Functor , Applicative , Monad , MonadWriter w
290
286
, MonadState s, MonadError e, MonadTrans
0 commit comments