about summary refs log tree commit diff
path: root/src/Trips.hs
AgeCommit message (Collapse)AuthorFilesLines
2020-07-31 Support PATCH /tripsWilliam Carroll1-3/+12
Support a top-level PATCH request to trips that permits any admin to update any trip, and any user to update any of their trips. I'm using Aeson's (:?) combinator to support missing fields from the incoming JSON requests, and then M.fromMaybe to apply these values to any record that matches the primary key. See the TODOs that I introduced for some shortcomings.
2020-07-31 Protect GET /trips with a session cookieWilliam Carroll1-2/+8
When an admin requests /trips, they see all of the trips in the Trips table. When a user requests /trips, they see only their trips.
2020-07-30 Remove erroneous parens around columns in SELECT statementWilliam Carroll1-1/+1
These were causing runtime errors... whoops!
2020-07-30 Prefer SELECT (a,b,c) to SELECT *William Carroll1-1/+1
"SELECT *" in SQL may not guarantee the order in which a record's columns are returned. For example, in my FromRow instances for Account, I make successive call The following scenario silently and erroneously assigns: firstName, lastName = lastName, firstName ```sql CREATE TABLE People ( firstName TEXT NOT NULL, lastName TEXT NOT NULL, age INTEGER NOT NULL, PRIMARY KEY (firstName, lastName) ) ``` ```haskell data Person = Person { firstName :: String, lastName :: String, age :: Integer } fromRow = do firstName <- field lastName <- field age <- field pure Person{..} getPeople :: Connection -> IO [Person] getPeople conn = query conn "SELECT * FROM People" ``` This silently fails because both firstName and lastName are Strings, and so the FromRow Person instance type-checks, but you should expect to receive a list of names like "Wallace William" instead of "William Wallace". The following won't break the type-checker, but will result in a runtime parsing error: ```haskell -- all code from the previous example remains the same except for: fromRow = do age <- field firstName <- field lastName <- field ``` The "SELECT *" will return records like (firstName,lastName,age), but the FromRow instance for Person will attempt to parse firstName as Integer. So... what have we learned? Prefer "SELECT (firstName,lastName,age)" instead of "SELECT *".
2020-07-28 Create Utils module for (|>) operatorWilliam Carroll1-3/+3
For the past 3-4 Haskell projects on which I've worked, I've tried to habituate the usage of the (&) operator, but I find that -- as petty as it may sound -- I don't like the way that it looks, and I end up avoiding using it as a result. This time around, I'm aliasing it to (|>) (i.e. Elixir style), and I'm hoping to use it more.
2020-07-28 Move SQL out of API and into separate modulesWilliam Carroll1-0/+27
Create modules for each Table in our SQL database. This cleans up the handler bodies at the expense of introducing more files and indirection.