No title

Anonymous Coward 2018-03-13 03:14:57.290703 UTC

1-- Takes a file and returns some animation data for SDL
2getSDLAnimationSetsFromJSON :: FilePath -> IO [AnimationSet]
3getSDLAnimationSetsFromJSON jsonFile = do
4 animationData <- getAnimationDataFromJSON (JSONFile jsonFile)
5 pure (foldr (++) maybeToList (convertToAnimationSet <$> animationData))
6
7-- getAnimationDataFromJSON :: JSONFile -> IO (Maybe [AnimationSetData])
8-- convertToAnimationSet :: AnimationSetData -> AnimationSet