Skip to content

Commit

Permalink
Update Guide/database.markdown
Browse files Browse the repository at this point in the history
  • Loading branch information
amitaibu authored Nov 17, 2023
1 parent 0066c06 commit 335c43c
Showing 1 changed file with 0 additions and 1 deletion.
1 change: 0 additions & 1 deletion Guide/database.markdown
Original file line number Diff line number Diff line change
Expand Up @@ -393,7 +393,6 @@ Then, in our controller, we can execute the query:
```haskell
-- Web/Controller/Projects.hs
action ProjectsAction = do
-- let pairs = projects |> fmap (\project -> (project.projectType, project.participants))
let pairs = [(ProjectTypeOngoing, 1 :: Int), (ProjectTypeFinished, 2)]
projects :: [Project] <- sqlQuery "SELECT * FROM projects WHERE (project_type, participants) IN ?" (Only $ In pairs)
Expand Down

0 comments on commit 335c43c

Please sign in to comment.