closeStatement

.github/workflows/main.yml

@@ -4,15 +4,17 @@ on:
     branches:
       - master
   pull_request:
-
+    
 jobs:
   build:
     runs-on: ubuntu-latest
     steps:
-     - uses: actions/checkout@v3.5.3
-     - uses: cachix/install-nix-action@v22
+     - uses: actions/checkout@v5
+     - uses: cachix/install-nix-action@v31
        with:
          nix_path: nixpkgs=channel:nixos-unstable
+     - name: nixpkgs update
+       run: nix-channel --update
      - name: run oracle
        run: nix-shell -p docker-compose --run "docker-compose up -d"
      - name: build

src/Database/Oracle/Simple/Query.hs

@@ -30,7 +30,7 @@ query conn sql param = do
   found <- fetch stmt
   loop stmt found
   where
-    loop _ n | n < 1 = do
+    loop stmt n | n < 1 = do
       closeStatement stmt
       pure []
     loop stmt _ = do
@@ -46,7 +46,7 @@ query_ conn sql = do
   found <- fetch stmt
   loop stmt found
   where
-    loop _ n | n < 1 = do
+    loop stmt n | n < 1 = do
       closeStatement stmt
       pure []
     loop stmt _ = do
@@ -62,11 +62,11 @@ forEach_ conn sql cont = do
   found <- fetch stmt
   loop stmt found
   where
-    loop _ n | n < 1 = do
+    loop stmt n | n < 1 = do
       closeStatement stmt
       pure ()
     loop stmt _ = do
       tsVal <- getRow stmt
       cont tsVal
       found <- fetch stmt
-      loop stmt found
+      loop stmt found