freckle-app 1.27.0.1 → 1.27.0.2

raw patch · 6 files changed

+16/−6 lines, 6 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

CHANGELOG.md +6/−1
freckle-app.cabal +1/−1
library/Freckle/App/Csv.hs +3/−1
library/Freckle/App/Test.hs +3/−1
library/Freckle/App/Test/Yesod.hs +2/−1
package.yaml +1/−1

CHANGELOG.md view

@@ -1,4 +1,9 @@-## [_Unreleased_](https://github.com/freckle/freckle-app/compare/freckle-app-v1.27.0.1...main)+## [_Unreleased_](https://github.com/freckle/freckle-app/compare/freckle-app-v1.27.0.2...main)++## [v1.27.0.2](https://github.com/freckle/freckle-app/compare/freckle-app-v1.27.0.1...freckle-app-v1.27.0.2)++- Support `freckle-prelude-0.1.0.0`, as well as earlier versions. No change in+  behavior.  ## [v1.27.0.1](https://github.com/freckle/freckle-app/compare/freckle-app-v1.27.0.0...freckle-app-v1.27.0.1)

freckle-app.cabal view

@@ -1,6 +1,6 @@ cabal-version:      1.18 name:               freckle-app-version:            1.27.0.1+version:            1.27.0.2 license:            MIT license-file:       LICENSE maintainer:         Freckle Education

library/Freckle/App/Csv.hs view

@@ -27,6 +27,7 @@   ) where  import Freckle.App.Prelude+import Prelude qualified  import Conduit import Control.Monad (foldM)@@ -92,7 +93,8 @@   -> Header   -> ValidateT (NESeq String) m () defaultValidateOrderedHeader _ h =-  traverse_ (h `hasHeader`) $ headerOrder (error "old school haskell" :: a)+  traverse_ (h `hasHeader`) $+    headerOrder (Prelude.error "old school haskell" :: a)  -- | Stream parse a CSV --

library/Freckle/App/Test.hs view

@@ -21,6 +21,7 @@   ) where  import Freckle.App.Prelude+import Prelude qualified  import Blammo.Logging (MonadLogger, MonadLoggerIO) import Blammo.Logging.Setup (WithLogger (..))@@ -160,7 +161,8 @@ beforeSql f = beforeWith $ \app -> app <$ runSqlPool f (getSqlPool app)  expectationFailure :: forall m a. (HasCallStack, MonadIO m) => String -> m a-expectationFailure msg = Hspec.expectationFailure msg >> error "unreachable"+expectationFailure msg =+  Hspec.expectationFailure msg >> Prelude.error "unreachable"  pending :: MonadIO m => m () pending = liftIO Hspec.pending

library/Freckle/App/Test/Yesod.hs view

@@ -73,6 +73,7 @@ where  import Freckle.App.Prelude+import Prelude qualified  import Blammo.Logging.Setup (LoggingT) import Control.Monad.Except (ExceptT)@@ -190,7 +191,7 @@  where   failure reason = do     _ <- liftIO $ HUnit.assertFailure $ T.unpack reason-    error ""+    Prelude.error ""  -- | Get the body of the most recent response as a byte string getRawBody

package.yaml view

@@ -1,5 +1,5 @@ name: freckle-app-version: 1.27.0.1+version: 1.27.0.2  maintainer: Freckle Education category: Utils