rearrange.hs

{-# LANGUAGE DeriveGeneric, OverloadedStrings #-}

import GHC.Generics
import System.Directory
import System.IO
import Prelude
import Data.Either
import Data.Aeson
import qualified Data.ByteString.Lazy as B

{- data Chart =
  Chart (Array Entry) deriving (Show, Generic) -}

data Entry =
  Entry { artist  :: !String
         , change   :: !String
         } deriving (Show, Generic)

instance FromJSON Entry
instance ToJSON Entry

readAndParse :: FilePath -> IO ()
readAndParse filePath =
  case (eitherDecode <$> B.readFile filePath) of
    Left val -> print "yes" 
    Right err -> print "no" 

main = do
  fileList <- getDirectoryContents "./charts"
  (map readAndParse fileList)