diff --git a/Database/Cayley/Client.hs b/Database/Cayley/Client.hs
index 31a472e..2f5d52f 100644
--- a/Database/Cayley/Client.hs
+++ b/Database/Cayley/Client.hs
@@ -10,6 +10,7 @@ module Database.Cayley.Client (
     , defaultCayleyConfig
     , connectCayley
     , query
+    , Shape
     , queryShape
 
     -- * REST API operations
@@ -88,8 +89,7 @@ queryShape c q =
     doShape m _q = do
         CayleyConfig {..} <- ask
         r <- apiRequest
-                 m (urlBase serverName apiVersion
-                    ++ "/shape/" ++ show queryLang)
+                 m (urlBase serverName apiVersion ++ "/shape/" ++ show queryLang)
                  serverPort (RequestBodyBS _q)
         case r of
             Just o  -> return $ A.fromJSON o