
deriveSafeStore ''UUID

-- orphans from filesystem-path
instance Binary FilePath where
    put = Binary.put . F.encodeString
    get = F.decodeString <$> Binary.get

instance SafeCopy FilePath where
    version = 1
    kind = base
    errorTypeName _ = "Filesystem.Path.FilePath"
    putCopy = contain . safePut . F.encodeString
    getCopy = contain $ F.decodeString <$> safeGet
