@@ -39,14 +39,14 @@ data Summary (sym :: Symbol)
39--type MyApi = Description
39--type MyApi = Description
40-- "This comment is visible in multiple Servant interpretations \
40-- "This comment is visible in multiple Servant interpretations \
41-- \and can be really long if necessary. \
41-- \and can be really long if necessary. \
42−-- \Haskell multiline support is not perfect \
42+-- \Haskell multiline String support is not perfect \
43-- \but it's still very readable."
43-- \but it's still very readable."
44-- :> Get '[JSON] Book
44-- :> Get '[JSON] Book
46data Description (sym :: Symbol)
46data Description (sym :: Symbol)
47 deriving (Typeable)
47 deriving (Typeable)
49−-- | Fold modifier list to decide whether argument should be parsed strictly or leniently.
49+-- | Fold list of modifiers to extract description as a type-level String.
51-- >>> :kind! FoldDescription '[]
51-- >>> :kind! FoldDescription '[]
52-- FoldDescription '[] :: Symbol
52-- FoldDescription '[] :: Symbol