We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 6c5ef63 commit 222fae7Copy full SHA for 222fae7
2 files changed
src/Bot/Replies.hs
@@ -133,7 +133,7 @@ setNoTrustCommandReplyCommand =
133
134
noTrustReply :: Effect (Entity NoTrustReply)
135
noTrustReply = do
136
- reply <- listToMaybe <$> selectEntities Proxy (Take 1 $ All)
+ reply <- listToMaybe <$> selectEntities Proxy (Take 1 All)
137
case reply of
138
Just reply' -> return reply'
139
Nothing ->
src/Transport.hs
@@ -1,5 +1,4 @@
1
{-# LANGUAGE DeriveFunctor #-}
2
-{-# LANGUAGE ViewPatterns #-}
3
{-# LANGUAGE OverloadedStrings #-}
4
module Transport where
5
0 commit comments