Use defaultCredentials in examples

KovalevDima · Jan 11, 2025 · fba755d · fba755d
1 parent b975899
commit fba755d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 20 deletions.
diff --git a/usage/insertInto.lhs b/usage/insertInto.lhs
@@ -28,7 +28,7 @@ module Writing where
 
 import ClickHaskell
   ( WritableInto, insertInto
-  , ChCredential(..), openNativeConnection
+  , openNativeConnection, defaultCredentials
   , Table, Column
   , toChType
   , ChDateTime, ChInt64, ChString, ChUUID
@@ -40,15 +40,7 @@ import GHC.Generics (Generic)
 
 main :: IO ()
 main = do
-  let credentials = MkChCredential
-        { chLogin = "default"
-        , chPass = ""
-        , chHost = "localhost"
-        , chDatabase = "default"
-        , chPort = "9000"
-        }
-  connection <- openNativeConnection credentials 
-
+  connection <- openNativeConnection defaultCredentials
   insertInto
     @ExampleTable
     @ExampleData

diff --git a/usage/selectFromView.lhs b/usage/selectFromView.lhs
@@ -25,24 +25,16 @@ module ReadingView where
 
 import ClickHaskell
   ( ReadableFrom, selectFromView, Column
-  , ChCredential(..)
   , View, Parameter, parameter
-  , openNativeConnection
+  , openNativeConnection, defaultCredentials
   , ChString, ChInt32
   )
 import Data.Int (Int32)
 import GHC.Generics (Generic)
 
 main :: IO ()
 main = do
-  let credentials = MkChCredential
-        { chLogin = "default"
-        , chPass = ""
-        , chHost = "localhost"
-        , chDatabase = "default"
-        , chPort = "9000"
-        }
-  connection <- openNativeConnection credentials
+  connection <- openNativeConnection defaultCredentials
   mapM_ print
     =<<
       selectFromView