From 560edfac3aeceba671f3c5beec8699264bcff024 Mon Sep 17 00:00:00 2001
From: Joscha <brummer@migejolise.de>
Date: Sat, 6 Jan 2018 00:53:08 +0000
Subject: [PATCH] Clean up some comments

---
 src/Cards.hs | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/src/Cards.hs b/src/Cards.hs
index d610d1a..3ffe496 100644
--- a/src/Cards.hs
+++ b/src/Cards.hs
@@ -193,9 +193,7 @@ tierName SixteenDays   = "16d"
 tierName ThirtyTwoDays = "32d"
 tierName SixtyFourDays = "64d"
 
-{-
- - Converting to String
- -}
+-- Two more utility functions for dealing with NominalDiffTimes
 
 integerToNom :: Integer -> NominalDiffTime
 integerToNom = fromInteger
@@ -203,6 +201,10 @@ integerToNom = fromInteger
 nomToInteger :: NominalDiffTime -> Integer
 nomToInteger = (truncate :: Double -> Integer) . realToFrac
 
+{-
+ - Converting to String
+ -}
+
 -- | Convert an 'Elements' to a string which can be parsed by 'parseElements'.
 --
 -- This string can then be written to a text file for storage.
@@ -235,14 +237,15 @@ cardToString Card{sides=s, tier=t, lastChecked=lc, offset=o}
 -- | Simple alias to clean up type signatures.
 type Parser = Parsec Void String
 
+-- useful parsers
+
 sc :: Parser ()
 sc = L.space space1 empty empty
 
 symbol :: String -> Parser String
 symbol = L.symbol sc
 
--- useful parsers
-
+-- Combines try and lookAhead: Never modifies the stack.
 followedBy :: Parser a -> Parser ()
 followedBy = void . try . lookAhead