commandLineProcess (Put cfg n mn) = do 
  putStrLn "put called"
  mc <- getModelClientConfiguration =<< load [Required cfg] 
  maybe (error "cannot parse config") (\c-> startPut c n mn) mc
commandLineProcess (Put cfg n mn) = do 
  putStrLn "put called"
  mc <- getModelClientConfiguration =<< load [Required cfg] 
  maybe (error "cannot parse config") (\c-> startPut c n mn) mc
commandLineProcess (Put cfg n mn) = do 
  putStrLn "put called"
  mc <- getModelClientConfiguration =<< load [Required cfg] 
  maybe (error "cannot parse config") (\c-> startPut c n mn) mc