Skip to content

Commit 6f7074b

Browse files
committed
Get rid of type application
1 parent e0db68f commit 6f7074b

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/Bot/Dubtrack.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -80,7 +80,7 @@ instance IsEntity RoomName where
8080

8181
getRoom :: Effect (Entity RoomName)
8282
getRoom = do
83-
reply <- listToMaybe <$> selectEntities (P.Proxy @RoomName) (Take 1 All)
83+
reply <- listToMaybe <$> selectEntities P.Proxy (Take 1 All)
8484
case reply of
8585
Just reply' -> return reply'
8686
Nothing -> createEntity P.Proxy $ RoomName "tsoding"

0 commit comments

Comments
 (0)