syncthing-hs-0.1.0.0: Network/Syncthing/Types/Ping.hs

{-# LANGUAGE OverloadedStrings #-}

module Network.Syncthing.Types.Ping
    ( Ping(..)
    ) where

import           Control.Applicative ((<$>))
import           Control.Monad       (MonadPlus (mzero))
import           Data.Aeson          (FromJSON, Value (..), parseJSON, (.:))
import           Data.Text           (Text)

newtype Ping = Ping { getPing :: Text } 
               deriving (Eq, Show)

instance FromJSON Ping where
    parseJSON (Object v) = Ping <$> (v .: "ping")
    parseJSON _          = mzero