diff --git a/minion.cabal b/minion.cabal
--- a/minion.cabal
+++ b/minion.cabal
@@ -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
diff --git a/src/Web/Minion/Args/Internal.hs b/src/Web/Minion/Args/Internal.hs
--- a/src/Web/Minion/Args/Internal.hs
+++ b/src/Web/Minion/Args/Internal.hs
@@ -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
diff --git a/src/Web/Minion/Examples/HelloWorld.hs b/src/Web/Minion/Examples/HelloWorld.hs
--- a/src/Web/Minion/Examples/HelloWorld.hs
+++ b/src/Web/Minion/Examples/HelloWorld.hs
@@ -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 <> "!"
diff --git a/src/Web/Minion/Request/Query.hs b/src/Web/Minion/Request/Query.hs
--- a/src/Web/Minion/Request/Query.hs
+++ b/src/Web/Minion/Request/Query.hs
@@ -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' #-}