dbErrorString :: DbError -> String
dbErrorString (DbQueryError q) = "There was a problem with one of the sql queries: " <> show q
dbErrorString :: DbError -> String
dbErrorString (DbQueryError q) = "There was a problem with one of the sql queries: " <> show q
dbErrorString (DbQueryError q) = "There was a problem with one of the sql queries: " <> show q