plotserver-api (empty) → 0.1

raw patch · 5 files changed

+131/−0 lines, 5 filesdep +basedep +curldep +splitsetup-changed

Dependencies added: base, curl, split

Files

• LICENSE +21/−0
• Plotserver/Api.hs +50/−0
• Plotserver/Types.hs +35/−0
• Setup.hs +2/−0
• plotserver-api.cabal +23/−0

@@ -0,0 +1,21 @@+The MIT License (MIT)++Copyright (c) 2013 Daniel Torok++Permission is hereby granted, free of charge, to any person obtaining a copy+of this software and associated documentation files (the "Software"), to deal+in the Software without restriction, including without limitation the rights+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell+copies of the Software, and to permit persons to whom the Software is+furnished to do so, subject to the following conditions:++The above copyright notice and this permission notice shall be included in+all copies or substantial portions of the Software.++THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN+THE SOFTWARE.

@@ -0,0 +1,50 @@+{-# LANGUAGE NamedFieldPuns  #-}++module Plotserver.Api (+	plotUrl, plotCat, plotUpdate, plotDelete+	) where++import Network.Curl+import Control.Applicative ((<$>))++import Plotserver.Types++------ API ------++plotUrl :: PlotConfig -> String -> String+plotUrl (PlotConfig {server}) dataset = server ++ "/" ++ dataset++plotCat :: PlotConfig -> String -> IO (Either String PlotData)+plotCat config dataset = response2either <$> curlGetResponse_ url_ opts where+	url_ = actionUrl config dataset "download"+	opts = defaultOpts config++plotUpdate :: PlotConfig -> String -> PlotDataRow -> IO (Either String PlotData)+plotUpdate config dataset row = response2either <$> curlGetResponse_ url_ opts where+	postData = show $ PlotData [row]+	url_ = actionUrl config dataset "update"+	opts = defaultOpts config ++ [+		CurlPost True,+		CurlPostFields [postData]+		]++plotDelete :: PlotConfig -> String -> IO (Either String PlotData)+plotDelete config dataset = response2either <$> curlGetResponse_ url_ opts where+	url_ = actionUrl config dataset "delete"+	opts = defaultOpts config++------ helpers ------++defaultOpts :: PlotConfig -> [CurlOption]+defaultOpts PlotConfig {username, password} = [+		CurlUserPwd (username ++ ":" ++ password)+	]++actionUrl :: PlotConfig -> String -> String -> String+actionUrl config dataset action = plotUrl config dataset ++ "?" ++ action++response2either :: CurlResponse_ [(String, String)] String -> Either String PlotData+response2either response +	| respStatus response == 200 = Right $ (read (respBody response) :: PlotData)+	| otherwise = Left err where+		err = "Error: " ++ show (respStatus response)

@@ -0,0 +1,35 @@+module Plotserver.Types where++import Data.List (intercalate)+import Data.List.Split (splitOn)+import Data.Traversable++-- TODO what if there isn't any password?+data PlotConfig = PlotConfig {+	server :: String,+	username :: String,+	password :: String+}++data PlotData = PlotData [PlotDataRow]+type PlotDataRow = (String, [Int])++instance Show PlotData where+	show (PlotData rows) = intercalate "\n" $ map showRow rows where+				showRow :: (String, [Int]) -> String+				showRow (key, values) = key ++ ", " ++ showValues values++				showValues :: [Int] -> String+				showValues values = intercalate ", " (map show values)++instance Read PlotData where+	readsPrec _ s = case dataRows of+							Just dataRows' -> [(PlotData dataRows', "")]+							Nothing -> []+	 where+		rows = filter (not.null) $ splitOn "\n" s+		dataRows = traverse createDataRow rows :: Maybe [PlotDataRow]+		createDataRow row = createDataTuple $ splitOn "," row :: Maybe PlotDataRow++		createDataTuple [] = Nothing+		createDataTuple (key:sValues) = Just (key, map read sValues) :: Maybe PlotDataRow -- just for the readibility

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

@@ -0,0 +1,23 @@+Name:              plotserver-api+Version:           0.1+Synopsis:          Plotserver API+Description:       A lightweight API for Prezi's opensourced Plotserver (https://github.com/prezi/plotserver)+License:           MIT+License-file:      LICENSE+Author:            Daniel Torok+Maintainer:        daniel.torok@prezi.com+Category:          API+Build-Type:        Simple+Cabal-Version:     >= 1.6++Source-repository head+  Type:            git+  Location:        https://github.com/dtorok/plotserver-hsapi++Library+  Build-Depends:   base >= 3 && < 5,+                   curl,+                   split+  Exposed-modules: Plotserver.Api, Plotserver.Types+  extensions:      OverloadedStrings+  ghc-options:     -Wall