module Numeric.Datasets.Nightingale where
import Numeric.Datasets
import Data.FileEmbed
import Data.ByteString.Lazy (fromStrict)
import Data.Aeson hiding (parseJSON)
import Data.Time (UTCTime)
import GHC.Generics
data Nightingale = Nightingale
{ date :: UTCTime
, army_size :: Int
, disease :: Int
, wounds :: Int
, other :: Int
} deriving (Show, Read, Generic)
instance FromJSON Nightingale
nightingale :: [Nightingale]
nightingale = readDataset JSON $ fromStrict $(embedFile "datafiles/nightingale.json")