unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-09-20 14:57:41 +03:00
Code Issues Projects Releases Wiki Activity

Re-arrange

Browse Source
This commit is contained in:
Chris Penner 2023-06-30 12:23:59 -06:00
parent b3eb2601a2
commit 2af0dbc854
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
unison-share-api/src/Unison/Server/Types.hs
View File

@ -72,6 +72,13 @@ type UnisonName = Text
type UnisonHash = Text
data NamespaceDetails = NamespaceDetails
{ fqn :: Path.Path,
hash :: UnisonHash,
readme :: Maybe Doc
}
deriving (Generic, Show)
instance Docs.ToSample NamespaceDetails where
toSamples _ =
[ ( "When no value is provided for `namespace`, the root namespace `.` is "
@ -83,13 +90,6 @@ instance Docs.ToSample NamespaceDetails where
)
]
data NamespaceDetails = NamespaceDetails
{ fqn :: Path.Path,
hash :: UnisonHash,
readme :: Maybe Doc
}
deriving (Generic, Show)
instance ToJSON NamespaceDetails where
toJSON NamespaceDetails {..} =
object