minion 0.1.0.0 → 0.1.0.1

raw patch · 4 files changed

+13/−10 lines, 4 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• minion.cabal +1/−1
• src/Web/Minion/Args/Internal.hs +2/−2
• src/Web/Minion/Examples/HelloWorld.hs +6/−3
• src/Web/Minion/Request/Query.hs +4/−4

@@ -1,6 +1,6 @@ cabal-version:      3.0 name:               minion-version:            0.1.0.0+version:            0.1.0.1 license:            MIT license-file:       LICENSE category:           Web

@@ -120,10 +120,10 @@ class Hidden m a where   runHidden :: Hide a -> m () -instance (Monad m) => Hidden m (WithHeader a b m a) where+instance (Monad m) => Hidden m (WithHeader a b m v) where   runHidden (Hide (WithHeader a)) = a $> () -instance (Monad m) => Hidden m (WithQueryParam a b m a) where+instance (Monad m) => Hidden m (WithQueryParam a b m v) where   runHidden (Hide (WithQueryParam a)) = a $> ()  instance (Monad m) => Hidden m (WithPiece a) where

@@ -6,11 +6,14 @@ import Web.Minion  app :: ApplicationM IO-app = serve @IO api+app = serve api   api :: Router Void IO api =   "api"-    /> [ "about" /> handlePlainText @String GET (pure "Hello-World Minion server")-       , "hello" /> capture @String "name" .> handlePlainText @String GET (\name -> pure $ "Hello, " <> name <> "!")+    /> [ "about" /> handlePlainText @String GET about+       , "hello" /> capture @String "name" .> handlePlainText @String GET hello        ]+  where +    about = pure "Hello-World Minion server"+    hello name = pure $ "Hello, " <> name <> "!"

@@ -35,7 +35,7 @@ {- | Tries to get query param  @-'queryParam'' "foo" pure '/>' ...+'queryParam'' "foo" '/>' ... @ -} {-# INLINE queryParam' #-}@@ -57,7 +57,7 @@ {- | Tries to get query param  @-'queryParam' "foo" pure '/>' ...+'queryParam' "foo" '/>' ... @ -} {-# INLINE queryParam #-}@@ -76,7 +76,7 @@ {- | Tries to get query param  @-'queryParam' "foo" pure '/>' ...+'queryParam' "foo" '/>' ... @ -} {-# INLINE queryParamLenient #-}@@ -95,7 +95,7 @@ {- | Tries to get query param  @-'queryParam' "foo" pure '/>' ...+'queryParam' "foo" '/>' ... @ -} {-# INLINE queryParamLenient' #-}