mirror of
https://github.com/Start9Labs/registry.git
synced 2026-03-26 18:21:52 +00:00
26 lines
618 B
Haskell
26 lines
618 B
Haskell
{-# LANGUAGE QuasiQuotes #-}
|
|
|
|
module Live.Serialize where
|
|
|
|
import Data.String.Interpolate.IsString
|
|
|
|
import Application
|
|
import Lib.External.Registry
|
|
import Startlude
|
|
|
|
someYaml :: ByteString
|
|
someYaml = [i|
|
|
bitcoind:
|
|
title: "Bitcoin Core"
|
|
description:
|
|
short: "A Bitcoin Full Node"
|
|
long: "The bitcoin full node implementation by Bitcoin Core."
|
|
version-info:
|
|
- version: 0.18.1
|
|
release-notes: "Some stuff"
|
|
icon-type: png
|
|
|]
|
|
|
|
appRegistryTest :: IO (Either String RegistryRes)
|
|
appRegistryTest = flip parseBsManifest someYaml <$> getAppSettings
|