diff --git a/gingersnap.cabal b/gingersnap.cabal
--- a/gingersnap.cabal
+++ b/gingersnap.cabal
@@ -1,5 +1,5 @@
 name:                gingersnap
-version:             0.1.0.0
+version:             0.1.1.0
 synopsis:            snap-core + aeson + postgresql-simple = delicious
 description:         JSON API idioms for snap-core, preventing DB connection leaks
 license:             BSD3
diff --git a/src/Gingersnap/Core.hs b/src/Gingersnap/Core.hs
--- a/src/Gingersnap/Core.hs
+++ b/src/Gingersnap/Core.hs
@@ -59,6 +59,7 @@
    ctxConnectionPool :: ctx -> Pool Connection
 
    ctxGetReadOnlyMode :: ctx -> IO Bool
+   ctxGetReadOnlyMode _ = pure False
 
    ctx_wrapSuccess :: ToJSON x => ctx -> x -> JSON.Value
    ctx_wrapSuccess _ x = JSON.object ["result" .= x]