use named record constructors

src/Handler/Add.hs

@@ -30,18 +30,26 @@ getAddViewR = do
 bookmarkFormUrl :: Handler BookmarkForm
 bookmarkFormUrl = do
   Entity _ user <- requireAuth
-  BookmarkForm
+  url <- lookupGetParam "url" >>= pure . fromMaybe ""
-    <$> (lookupGetParam "url" >>= pure . fromMaybe "")
+  title <- lookupGetParam "title"
-    <*> (lookupGetParam "title")
+  description <- lookupGetParam "description" >>= pure . fmap Textarea
-    <*> (lookupGetParam "description" >>= pure . fmap Textarea)
+  tags <- lookupGetParam "tags"
-    <*> (lookupGetParam "tags")
+  private <- lookupGetParam "private" >>= pure . fmap parseChk <&> (<|> Just (userPrivateDefault user))
-    <*> (lookupGetParam "private" >>= pure . fmap parseChk <&> (<|> Just (userPrivateDefault user)))
+  toread <- lookupGetParam "toread" >>= pure . fmap parseChk
-    <*> (lookupGetParam "toread" >>= pure . fmap parseChk)
+  pure $
-    <*> pure Nothing
+    BookmarkForm
-    <*> pure Nothing
+    { _url = url
-    <*> pure Nothing
+    , _title = title
-    <*> pure Nothing
+    , _description = description
-    <*> pure Nothing
+    , _tags = tags
+    , _private = private
+    , _toread = toread
+    , _bid = Nothing
+    , _slug = Nothing
+    , _selected = Nothing
+    , _time = Nothing
+    , _archiveUrl = Nothing
+    }
   where
     parseChk s = s == "yes" || s == "on"
 

src/Handler/Notes.hs

@@ -69,7 +69,7 @@ getAddNoteViewR :: UserNameP -> Handler Html
 getAddNoteViewR unamep@(UserNameP uname) = do
   userId <- requireAuthId
   let renderEl = "note" :: Text
-  note <- liftIO $ Entity (NoteKey 0) <$> _toNote userId (NoteForm Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing)
+  note <- liftIO $ Entity (NoteKey 0) <$> _toNote userId emptyNoteForm
   defaultLayout $ do
     $(widgetFile "note")
     toWidgetBody [julius|
@@ -129,6 +129,9 @@ instance ToJSON NoteForm where toJSON = A.genericToJSON gNoteFormOptions
 gNoteFormOptions :: A.Options
 gNoteFormOptions = A.defaultOptions { A.fieldLabelModifier = drop 1 }
 
+emptyNoteForm :: NoteForm
+emptyNoteForm = NoteForm Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing
+
 _toNote :: UserId -> NoteForm -> IO Note
 _toNote userId NoteForm {..} = do
   time <- liftIO getCurrentTime

src/Model.hs

@@ -694,12 +694,12 @@ _toBookmark userId BookmarkForm {..} = do
     { bookmarkUserId = userId
     , bookmarkSlug = slug
     , bookmarkHref = _url
-    , bookmarkDescription = (fromMaybe "" _title)
+    , bookmarkDescription = fromMaybe "" _title
-    , bookmarkExtended = (maybe "" unTextarea _description)
+    , bookmarkExtended = maybe "" unTextarea _description
-    , bookmarkTime = (fromMaybe time (fmap unUTCTimeStr _time))
+    , bookmarkTime = fromMaybe time (fmap unUTCTimeStr _time)
-    , bookmarkShared = (maybe True not _private)
+    , bookmarkShared = maybe True not _private
-    , bookmarkToRead = (fromMaybe False _toread)
+    , bookmarkToRead = fromMaybe False _toread
-    , bookmarkSelected = (fromMaybe False _selected)
+    , bookmarkSelected = fromMaybe False _selected
     , bookmarkArchiveHref = _archiveUrl
     }