useArg:: String -> IO ()
useArg arg
  -- | (arg == "j") = writeFile "./api.js" js
  | (arg == "m") = makeDB
  -- | (arg == "d") = writeFile "./docs.html" doc
  | otherwise = print "Didn't understand that command line arg"
useArg:: String -> IO ()
useArg arg
  -- | (arg == "j") = writeFile "./api.js" js
  | (arg == "m") = makeDB
  -- | (arg == "d") = writeFile "./docs.html" doc
  | otherwise = print "Didn't understand that command line arg"
useArg arg
  -- | (arg == "j") = writeFile "./api.js" js
  | (arg == "m") = makeDB
  -- | (arg == "d") = writeFile "./docs.html" doc
  | otherwise = print "Didn't understand that command line arg"