Add cache range view
This commit is contained in:
parent
d5aed3cdeb
commit
f2c96180e4
|
@ -137,7 +137,10 @@ viewCache level (cm, cs) =
|
||||||
slotHtml s =
|
slotHtml s =
|
||||||
case s of
|
case s of
|
||||||
Empty -> td [] [ text "" ]
|
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
|
in
|
||||||
List.map slotHtml set
|
List.map slotHtml set
|
||||||
cacheRow = List.concat <| List.map setRow cs
|
cacheRow = List.concat <| List.map setRow cs
|
||||||
|
|
Loading…
Reference in New Issue
Block a user