git.iko.soy/denis
on master help sign in
Improved doc
484e250iko
denis/src/Server/Query/Dialog.hs+2−2
compare with master
unifiedsplit
@@ -22,8 +22,8 @@ import Servant.Docs
22import Data.Proxy
22import Data.Proxy
23
23
24instance ToSample Dialog where
24instance ToSample Dialog where
25− toSamples _ = samples ((GroupDialog <$> map snd (toSamples Proxy) <*> map snd (toSamples Proxy)) <>
26− (UserDialog <$> [69] <*> map snd (toSamples Proxy)))
25+ toSamples _ = samples (take 1 (UserDialog <$> [69] <*> map snd (toSamples Proxy)) <>
26+ (GroupDialog <$> map snd (toSamples Proxy) <*> map snd (toSamples Proxy)))
27
27
28data Dialog = GroupDialog GroupChat Message | UserDialog UserId Message
28data Dialog = GroupDialog GroupChat Message | UserDialog UserId Message
29 deriving Show
29 deriving Show