ui: use same filter style for depth limit

This commit is contained in:
Simon Michael 2016-06-18 08:53:59 -07:00
parent cc8180b295
commit b017426812

View File

@ -91,7 +91,7 @@ borderQueryStr qry = str " matching " <+> withAttr (borderAttr <> "query") (str
borderDepthStr :: Maybe Int -> Widget
borderDepthStr Nothing = str ""
borderDepthStr (Just d) = str " to " <+> withAttr (borderAttr <> "depth") (str $ "depth "++show d)
borderDepthStr (Just d) = str " to " <+> withAttr (borderAttr <> "query") (str $ "depth "++show d)
borderKeysStr :: [(String,String)] -> Widget
borderKeysStr keydescs =