aelve/guide
1
1
Fork 0
mirror of https://github.com/aelve/guide.git synced 2024-12-22 20:31:31 +03:00
Code Issues Projects Releases Wiki Activity

Don't use 'show' on Markdown (#368)

Browse Source
This commit is contained in:
Artyom Kazak 2019-08-11 17:06:02 +03:00 committed by mergify[bot]
parent c4051a9285
commit 285dd6b7f3
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
back/src/Guide/Database/Types.hs
View File

@ -32,7 +32,7 @@ import Imports
import Named
import Guide.Markdown (toMarkdownBlock, toMarkdownTree, toMarkdownInline)
import Guide.Markdown (toMarkdownBlock, toMarkdownTree, toMarkdownInline, markdownBlockSource, markdownTreeSource, markdownInlineSource)
import Guide.Types.Core (Category (..), CategoryStatus, Item (..), ItemSection, Trait (..),
TraitType)
import Guide.Utils (Uid (..), makeClassWithLenses, fields)
@ -142,7 +142,7 @@ categoryToRowCategory $(fields 'Category) = CategoryRow
, categoryRowCreated = categoryCreated
, categoryRowGroup = categoryGroup
, categoryRowStatus = categoryStatus
, categoryRowNotes = toText $ show categoryNotes -- TODO fix!
, categoryRowNotes = markdownBlockSource categoryNotes
, categoryRowEnabledSections = categoryEnabledSections
, categoryRowItemsOrder = map itemUid categoryItems
}
@ -193,9 +193,9 @@ itemToRowItem catId (arg #deleted -> deleted) $(fields 'Item) = ItemRow
, itemRowCreated = itemCreated
, itemRowLink = itemLink
, itemRowHackage = itemHackage
, itemRowSummary = toText $ show itemSummary -- TODO fix
, itemRowEcosystem = toText $ show itemEcosystem -- TODO fix
, itemRowNotes = toText $ show itemNotes -- TODO fix
, itemRowSummary = markdownBlockSource itemSummary
, itemRowEcosystem = markdownBlockSource itemEcosystem
, itemRowNotes = markdownTreeSource itemNotes
, itemRowDeleted = deleted
, itemRowCategoryUid = catId
, itemRowProsOrder = map traitUid itemPros
@ -222,7 +222,7 @@ traitToTraitRow
traitToTraitRow itemId (arg #deleted -> deleted) traitType $(fields 'Trait) =
TraitRow
{ traitRowUid = traitUid
, traitRowContent = toText $ show traitContent -- TODO fix
, traitRowContent = markdownInlineSource traitContent
, traitRowDeleted = deleted
, traitRowType = traitType
, traitRowItemUid = itemId