Skip to content

Commit

Permalink
hlint
Browse files Browse the repository at this point in the history
  • Loading branch information
bergmark committed Mar 4, 2016
1 parent 8a238d0 commit d1d976b
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions example/Main.hs
Original file line number Diff line number Diff line change
Expand Up @@ -27,7 +27,7 @@ main = do
-- The default setting type is 'Config_' = 'Config ()', See
-- 'Girella.Config' for more info about the type argument.
cfg :: Config_
<- defaultConfig $ ConnectInfo
<- defaultConfig ConnectInfo
{ connectHost = "localhost"
, connectPort = 5432
, connectUser = "test"
Expand All @@ -46,7 +46,7 @@ runMyTransStack cfg = flip runReaderT cfg . unTransStack

-- | Runs our queries in just a 'ReaderT' instead.
runInReaderT :: Config c -> ReaderT (Config c) IO a -> IO a
runInReaderT cfg = flip runReaderT cfg
runInReaderT = flip runReaderT

-- | 'MonadPool' denotes an environment that can run transactions of
-- queries. Transactions in MonadPool's can't be combined, they will
Expand Down

0 comments on commit d1d976b

Please sign in to comment.