diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,3 +1,7 @@
+# 0.1.1
+
+* Add instance for QueryFlag.
+
 # 0.1.0
 
 * Initial release.  See the haddock for documentation.
diff --git a/react-flux-servant.cabal b/react-flux-servant.cabal
--- a/react-flux-servant.cabal
+++ b/react-flux-servant.cabal
@@ -1,5 +1,5 @@
 name:                react-flux-servant
-version:             0.1.0
+version:             0.1.1
 synopsis:            Allow react-flux stores to send requests to a servant server
 category:            Web
 homepage:            https://bitbucket.org/wuzzeb/react-flux-servant
diff --git a/src/React/Flux/Addons/Servant.hs b/src/React/Flux/Addons/Servant.hs
--- a/src/React/Flux/Addons/Servant.hs
+++ b/src/React/Flux/Addons/Servant.hs
@@ -223,6 +223,13 @@
             sym' = jsPack $ symbolVal (Proxy :: Proxy sym)
             a' = jsPack $ T.unpack $ toUrlPiece a
 
+instance (KnownSymbol sym, HasAjaxRequest sub) => HasAjaxRequest (QueryFlag sym :> sub) where
+    type MkRequest (QueryFlag sym :> sub) = Bool -> MkRequest sub
+    toRequest _ r False = toRequest (Proxy :: Proxy sub) r
+    toRequest _ r True = toRequest (Proxy :: Proxy sub) r { rQuery = rQuery r ++ [(sym', "true")]}
+        where
+            sym' = jsPack $ symbolVal (Proxy :: Proxy sym)
+
 instance (KnownSymbol sym, ToHttpApiData a, HasAjaxRequest sub) => HasAjaxRequest (QueryParam sym a :> sub) where
     type MkRequest (QueryParam sym a :> sub) = Maybe a -> MkRequest sub
     toRequest _ r Nothing = toRequest (Proxy :: Proxy sub) r