git-annex sim command is working
Had to add Read instances to Key and NumCopies and some other similar types. I only expect to use those in serializing a sim. Of course, this risks that implementation changes break reading old data. For a sim, that would not be a big problem.
This commit is contained in:
parent
7e8274c6b7
commit
52891711d2
10 changed files with 284 additions and 155 deletions
|
@ -22,7 +22,7 @@ import qualified Data.Set as S
|
|||
import qualified Data.ByteString as S
|
||||
|
||||
newtype Group = Group S.ByteString
|
||||
deriving (Eq, Ord, Show)
|
||||
deriving (Eq, Ord, Show, Read)
|
||||
|
||||
fromGroup :: Group -> String
|
||||
fromGroup (Group g) = decodeBS g
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue