diff options
Diffstat (limited to 'src/Trips.hs')
| -rw-r--r-- | src/Trips.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Trips.hs b/src/Trips.hs index 0b395f8bcfe8..0d805cbe8603 100644 --- a/src/Trips.hs +++ b/src/Trips.hs @@ -2,8 +2,8 @@ -------------------------------------------------------------------------------- module Trips where -------------------------------------------------------------------------------- -import Data.Function ((&)) import Database.SQLite.Simple +import Utils import qualified Types as T -------------------------------------------------------------------------------- @@ -12,14 +12,14 @@ import qualified Types as T create :: FilePath -> T.Trip -> IO () create dbFile trip = withConnection dbFile $ \conn -> execute conn "INSERT INTO Trips (username,destination,startDate,endDate,comment) VALUES (?,?,?,?,?)" - (trip & T.tripFields) + (trip |> T.tripFields) -- | Delete a trip from `dbFile` using its `tripPK` Primary Key. delete :: FilePath -> T.TripPK -> IO () delete dbFile tripPK = withConnection dbFile $ \conn -> do execute conn "DELETE FROM Trips WHERE username = ? AND destination = ? and startDate = ?" - (tripPK & T.tripPKFields) + (tripPK |> T.tripPKFields) -- | Return a list of all of the trips in `dbFile`. list :: FilePath -> IO [T.Trip] |