Prefer NoContent response to Bool

When I first wrote this handler I wasn't aware of the NoContent response
option.

src/API.hs

@@ -17,4 +17,4 @@ type API = "user"
            :> Get  '[JSON] (Maybe T.Account)
       :<|> "trip"
            :> ReqBody '[JSON] T.Trip
-           :> Post '[JSON] Bool
+           :> Post '[JSON] NoContent

src/App.hs

@@ -42,11 +42,11 @@ server dbFile = userAddH
         [x] -> pure (Just x)
         _   -> pure Nothing
 
-    createTrip :: T.Trip -> IO Bool
+    createTrip :: T.Trip -> IO NoContent
     createTrip trip = withConnection dbFile $ \conn -> do
       execute conn "INSERT INTO Trips (username,destination,startDate,endDate,comment) VALUES (?,?,?,?,?)"
         (trip & T.tripFields)
-      pure True
+      pure NoContent
 
 mkApp :: FilePath -> IO Application
 mkApp dbFile = do