pingu/org-to-mafiauniverse
1
0
Fork 0
mirror of https://github.com/The1Penguin/org-to-mafiauniverse.git synced 2025-06-29 09:27:13 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed issues in show for Info and better example

Browse Source
This commit is contained in:
Pingu
2022-10-29 11:57:43 +02:00
parent 2cd0d66bb3
commit 813debec5d
2 changed files with 11 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
app/Main.hs
View File

@ -27,15 +27,15 @@ data Info =
instance Show Info where
show :: Info -> String
show info = case info of
Bread text -> text
List texts -> "[LIST]" ++ concatMap ((++) "[*] " . show) texts ++ "[/LIST]"
Header text -> "[TITLE]" ++ text ++ "[/TITLE]"
Subheader text -> "[SIZE=4]" ++ text ++ "[/SIZE]"
Subsubheader text -> "[SIZE=2]" ++ text ++ "[/SIZE]"
Image (URL url) -> "[IMG]" ++ url ++ "[/IMG]"
Video (URL url) -> "[VIDEO]" ++ url ++ "[/VIDEO]"
Link (URL url) inf -> "[URL=\"" ++ url ++ "\"]" ++ show inf ++ "[/IMG]"
Spoiler inf -> "[SPOILER]" ++ concatMap show inf ++ "[/SPOILER]"
Bread text -> text ++ "\n"
List texts -> "[LIST]" ++ concatMap ((++) "[*] " . show) texts ++ "[/LIST]\n"
Header text -> "[TITLE]" ++ text ++ "[/TITLE]\n"
Subheader text -> "[SIZE=4]" ++ text ++ "[/SIZE]\n"
Subsubheader text -> "[SIZE=2]" ++ text ++ "[/SIZE]\n"
Image (URL url) -> "[IMG]" ++ url ++ "[/IMG]\n"
Video (URL url) -> "[VIDEO]" ++ url ++ "[/VIDEO]\n"
Link (URL url) inf -> "[URL=\"" ++ url ++ "\"]" ++ show inf ++ "[/URL]\n"
Spoiler inf -> "[SPOILER]" ++ concatMap show inf ++ "[/SPOILER]\n"
newtype Post = Post [Info]