src/Add.hs

   1 {-
   2     Add.hs
   3
   4     Copyright 2013 Louis-Guillaume Gagnon <louis.guillaume.gagnon@gmail.com>
   5
   6     This program is free software: you can redistribute it and/or modify
   7     it under the terms of the GNU General Public License as published by
   8     the Free Software Foundation, either version 3 of the License, or
   9     (at your option) any later version.
  10
  11     This program is distributed in the hope that it will be useful,
  12     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14     GNU General Public License for more details.
  15
  16     You should have received a copy of the GNU General Public License
  17     along with this program.  If not, see <http://www.gnu.org/licenses/>.
  18 -}
  19
  20 module Add (
  21     add,
  22     usageAdd
  23 ) where
  24
  25 import Data.Char
  26 import Data.List
  27 import Database.HDBC
  28 import Database.HDBC.Sqlite3
  29 import System.Directory
  30
  31 import Tools.Constants
  32 import Tools.Filter (tryGetFilters, usageFilters)
  33 import Tools.Operation (isHelp)
  34 import Tools.SQL (addEntry)
  35
  36 add :: [String] -> IO ()
  37 add [] = error $ "add: no arguments specified ('" ++ progName ++ " add help' for help)"
  38 add argv = if isHelp $ head argv
  39     then do putStrLn usageAdd
  40     else do filters <- tryGetFilters argv
  41             case filters of
  42                 Left  msg -> error $ "add: " ++ msg
  43                 Right fs  -> addEntry fs
  44
  45 usageAdd :: String
  46 usageAdd = "usage: " ++ progName ++ " add <filters>\n" ++ usageFilters