summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Lib.hs3
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 ]