@@ -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
9493properly 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
123121instance 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