edits

1 files changed, 1 insertions, 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 ]