haddock improvement

MichelBoucey · Sep 13, 2016 · 39e37ab · 39e37ab
1 parent ad8fbcf
commit 39e37ab
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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