Garmelon/chards
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix whitespace when converting to string

Browse source
This commit is contained in:
Joscha 2018-01-05 18:38:24 +00:00
parent 8973d30cae
commit bb509c9800
1 changed files with 16 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/Cards.hs
View file

@ -225,19 +225,25 @@ nomToInteger = (truncate :: Double -> Integer) . realToFrac
elementsToString :: Elements -> String
elementsToString (Elements e) =
let elms = map snd $ sortBy (compare `on` fst) $ Map.toList e
in unlines $ intersperse "" $ map (\x -> elementToString x) elms
in unlines $ intercalate ["", ""] $ map (\x -> elementToString x) elms
elementToString :: Element -> String
elementToString (EComment str) = unlines ['#' : str]
elementToString :: Element -> [String]
elementToString (EComment str) = ['#' : str]
elementToString (ECard card) = cardToString card
cardToString :: Card -> String
cardToString Card{sides=s, tier=t, lastChecked=lc, offset=o} =
let info = ":: {\"level\": " ++ (show $ fromEnum t) ++
", \"last_checked\": " ++ formatTime defaultTimeLocale "%s" lc ++
", \"delay\": " ++ (show $ nomToInteger o) ++
"}"
in unlines $ info : intersperse "::" s
cardToString :: Card -> [String]
cardToString Card{sides=s, tier=t, lastChecked=lc, offset=o}
| t == minBound =
let info = ":: {\"level\": " ++ (show $ fromEnum t) ++
", \"last_checked\": " ++ formatTime defaultTimeLocale "%s" lc ++
"}"
in info : intersperse "::" s
| otherwise =
let info = ":: {\"level\": " ++ (show $ fromEnum t) ++
", \"last_checked\": " ++ formatTime defaultTimeLocale "%s" lc ++
", \"delay\": " ++ (show $ nomToInteger o) ++
"}"
in info : intersperse "::" s
{-
- Parsing