decodeFile :: A.FromJSON a => FilePath -> IO a
decodeFile f = io errMsg . errorDecode =<< BS.readFile f
  where
  errMsg = "couldn't parse file '" ++ f ++ "' to JSON"
decodeFile :: A.FromJSON a => FilePath -> IO a
decodeFile f = io errMsg . errorDecode =<< BS.readFile f
  where
  errMsg = "couldn't parse file '" ++ f ++ "' to JSON"
decodeFile f = io errMsg . errorDecode =<< BS.readFile f
  where
  errMsg = "couldn't parse file '" ++ f ++ "' to JSON"