take the tail of the commandline arguments (to remove the operating

mode)

Main.hs

@@ -7,8 +7,13 @@ import Database
 import Data.List
 import System.Environment (getArgs)
 import qualified Data.Text.IO as TIO (putStrLn)
+import qualified Control.Monad as M
 
 main = do
-  term <- getArgs
+  args <- getArgs
-  result <- search $ intercalate " " term
+  let mode = head args
-  mapM_ addSingle result
+  let searchTerm = intercalate " " $ tail args
+  case mode of
+    "single" -> M.join (addSingle <$> firstResult searchTerm) >> return ()
+    "all" -> M.join (mapM_ addSingle <$> search searchTerm) >> return ()
+    _ -> error "unknown mode"

Utils.hs

@@ -16,7 +16,6 @@ isSep = choice [string "by",
                 repeated "-",
                 repeated "|"]
 
-
 isTrack = do
   artist <- manyTill anyChar isSep
   title <- many1 anyChar