Add cache range view

This commit is contained in:
Danila Fedorin 2019-06-01 14:43:40 -07:00
parent d5aed3cdeb
commit f2c96180e4

View File

@ -137,7 +137,10 @@ viewCache level (cm, cs) =
slotHtml s =
case s of
Empty -> td [] [ text "" ]
Used l a -> td [] [ text <| String.fromInt a ]
Used l a -> td [] [ text <|
(String.fromInt (a * cm.blockSize * 4)) ++
"-" ++
(String.fromInt ((a + 1) * cm.blockSize * 4 - 1)) ]
in
List.map slotHtml set
cacheRow = List.concat <| List.map setRow cs