Update fromDBComment to use mkTopic and mkCommentText

FaneBastinBellroy · Apr 20, 2022 · ddfa120 · ddfa120
1 parent 5d7bde4
commit ddfa120
Showing 1 changed file with 3 additions and 6 deletions.
diff --git a/src/Level04/Types.hs b/src/Level04/Types.hs
@@ -82,12 +82,9 @@ encodeComment = E.mapLikeObj $ \c ->
 fromDBComment
   :: DBComment
   -> Either Error Comment
-fromDBComment dc =
-  pure $ Comment
-    (CommentId $ dbCommentId dc)
-    (Topic $ dbCommentTopic dc)
-    (CommentText $ dbCommentBody dc)
-    (dbCommentTime dc)
+fromDBComment (DBComment i tp tx t) =
+  Comment (CommentId i) <$> mkTopic tp <*>
+    mkCommentText tx <*> pure t
 
 data RqType
   = AddRq Topic CommentText