yeshql-core 4.1.0.2 → 4.1.1.2

raw patch · 2 files changed

+7/−8 lines, 2 files

Files

• src/Database/YeshQL/Util.hs +6/−7
• yeshql-core.cabal +1/−1

@@ -57,15 +57,15 @@     where         queryNames = [ basename ++ "_" ++ show i | i <- [0..] ] -withParsedQuery :: (MonadPerformIO m, Monad m)+withParsedQuery :: (MonadFail m, MonadPerformIO m, Monad m)                 => (ParsedQuery -> m a) -> String -> m a withParsedQuery = withParsed parseQuery -withParsedQueries :: (MonadPerformIO m, Monad m)+withParsedQueries :: (MonadFail m, MonadPerformIO m, Monad m)                   => ([ParsedQuery] -> m a) -> String -> m a withParsedQueries = withParsed parseQueries -withParsedQueryFile :: (MonadPerformIO m, Monad m)+withParsedQueryFile :: (MonadFail m, MonadPerformIO m, Monad m)                     => (ParsedQuery -> m a) -> FilePath -> m a withParsedQueryFile p fn =     withParsedFile@@ -73,7 +73,7 @@         (p . nameQuery (queryIdentifier "" fn))         fn -withParsedQueriesFile :: (MonadPerformIO m, Monad m)+withParsedQueriesFile :: (MonadFail m, MonadPerformIO m, Monad m)                       => ([ParsedQuery] -> m a) -> FilePath -> m a withParsedQueriesFile p fn =     withParsedFile@@ -81,7 +81,7 @@         (p . nameQueries (queryIdentifier "" fn))         fn -withParsed :: (Monad m, Show e)+withParsed :: (MonadFail m, Monad m, Show e)            => (s -> Either e a) -> (a -> m b) -> s -> m b withParsed p a src = do     let parseResult = p src@@ -113,9 +113,8 @@     addDependentFile = const $ return () #endif -withParsedFile :: (MonadPerformIO m, Monad m, Show e) => (String -> Either e a) -> (a -> m b) -> FilePath -> m b+withParsedFile :: (MonadFail m, MonadPerformIO m, Monad m, Show e) => (String -> Either e a) -> (a -> m b) -> FilePath -> m b withParsedFile p a filename =     addDependentFile filename >>     performIO (readFile filename) >>=         withParsed p a-

@@ -1,5 +1,5 @@ name: yeshql-core-version: 4.1.0.2+version: 4.1.1.2 synopsis: YesQL-style SQL database abstraction (core) description: Use quasi-quotations or TemplateHaskell to write SQL in SQL, while              adding type annotations to turn SQL into well-typed Haskell