mirror of
https://github.com/qfpl/applied-fp-course.git
synced 2024-11-29 16:55:12 +03:00
commit
0f7b763314
@ -77,7 +77,7 @@ getComments
|
|||||||
getComments =
|
getComments =
|
||||||
let
|
let
|
||||||
sql = "SELECT id,topic,comment,time FROM comments WHERE topic = ?"
|
sql = "SELECT id,topic,comment,time FROM comments WHERE topic = ?"
|
||||||
-- There are several possible implementations of this function. Paritcularly
|
-- There are several possible implementations of this function. Particularly
|
||||||
-- there may be a trade-off between deciding to throw an Error if a DbComment
|
-- there may be a trade-off between deciding to throw an Error if a DbComment
|
||||||
-- cannot be converted to a Comment, or simply ignoring any DbComment that is
|
-- cannot be converted to a Comment, or simply ignoring any DbComment that is
|
||||||
-- not valid.
|
-- not valid.
|
||||||
|
Loading…
Reference in New Issue
Block a user