git.iko.soy/denis
on master help sign in
Improved doc
commit484e250e859e546319259b1106688cd6d144e432 authoriko <ilyakooo0@gmail.com> dateFri 3 May 2019, 16:21 (7 years ago) parent7fe7a7d
1 file changed+2−2
compare with master
unifiedsplit
denis/src/Server/Query/Dialog.hs+2−2
denis/src/Server/Query/Dialog.hs+2−2
@@ -22,8 +22,8 @@ import Servant.Docs
2222import Data.Proxy
2323
2424instance 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)))
2727
2828data Dialog = GroupDialog GroupChat Message | UserDialog UserId Message
2929 deriving Show