Bump versions and multiple queries

app/Main.hs

@@ -21,6 +21,7 @@ import qualified Operations
 
 import Data.Query
        (Field(..))
+import qualified Options.Applicative.NonEmpty as NE
 
 commands :: Parser (BuukaM ())
 commands = subparser
@@ -34,7 +35,7 @@ commands = subparser
         f <$> strOption (long "url" <> short 'u' <> metavar "URL")
           <*> optional (strOption (long "title"))
     queryOpts f =
-      uncurry f <$> asum [tagged Title "title", tagged Url "url"]
+      f <$> NE.some1 (asum [tagged Title "title", tagged Url "url"])
     tagged t x = (t, ) <$> strOption (long x <> metavar "REGEX")
 
 main :: IO ()