diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2024-11-10 19:17:56 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2024-11-17 22:15:45 +0100 |
| commit | 20d017985ff1d69e7ea0c8ea5bd4808e3deab194 (patch) | |
| tree | 745b8c64448388682b57e2d36b01cff0dcb38081 /src/Erebos/Storage/Internal.hs | |
| parent | 00dcbf3c14dceaa3b1a54a3d479518302f9c2ce4 (diff) | |
Create Erebos.Storage.Head module
Diffstat (limited to 'src/Erebos/Storage/Internal.hs')
| -rw-r--r-- | src/Erebos/Storage/Internal.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Erebos/Storage/Internal.hs b/src/Erebos/Storage/Internal.hs index 8b794d8..3e8d8b6 100644 --- a/src/Erebos/Storage/Internal.hs +++ b/src/Erebos/Storage/Internal.hs @@ -159,12 +159,11 @@ readHex = return . BA.concat <=< readHex' newtype Generation = Generation Int deriving (Eq, Show) -data Head' c a = Head HeadID (Stored' c a) - deriving (Eq, Show) - +-- | UUID of individual Erebos storage head. newtype HeadID = HeadID UUID deriving (Eq, Ord, Show) +-- | UUID of Erebos storage head type. newtype HeadTypeID = HeadTypeID UUID deriving (Eq, Ord) |