From e8f536fdea54484d294ff80b53272e989be737bd Mon Sep 17 00:00:00 2001
From: cyfraeviolae <cyfraeviolae>
Date: Thu, 31 Dec 2020 21:50:41 -0500
Subject: edits

---
 src/Lib.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Lib.hs b/src/Lib.hs
index 861f6f3..48f30a9 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -108,7 +108,7 @@ data Order = Less | Greater deriving (Eq, Show)
 newtype Decisions = Decisions [Order] deriving (Eq, Show)
 newtype Version = Version B.Word8 deriving (Eq, Show, FromHttpApiData, Generic, Num)
 newtype Seed = Seed B.Word16 deriving (Eq, Show, FromHttpApiData, Generic, Num, R.Random)
--- TODO fml use bitvec pkg
+-- TODO use bitvec pkg
 instance B.Binary Decisions where
     get = do
         c <- fromIntegral <$> B.getWord8
@@ -300,7 +300,6 @@ playURI mediumTags periods level gameState = "/" <> toUrlPiece (safeLink api (Pr
 gameCrumbs :: Monad m => [MediumTag] -> [T.Text] -> [Period] -> Level -> [HtmlT m ()]
 gameCrumbs _ labels periods level = [
     span_ $ toHtmlRaw $ T.intercalate " &middot; " labels
-    -- TODO
     , span_ $ toHtmlRaw $ T.intercalate " &middot; " (renderPeriod <$> periods)
     , span_ $ toHtml . tshow $ level ]
 
-- 
cgit v1.2.3