gistfile1.txt

data RawDebtRec = RawDebtRec
  { company :: Text
  , debt :: Int
  , phones :: [Int]
  }
 
parseCompany o = o .: "company"
             <|> o .: "company" >>= (.: "name")

parseInt o = parseJSON o <|> (read <$> parseJSON o)
parseDebt o = o .: "debt" >>= parseInt

parsePhone o = (o .: "phone" >>= parseInt >>= pure . pure)
           <|> pure []

parsePhoneList (Array vs) = toList <$> mapM parseInt vs
parsePhoneList (Number n) = pure (round n)
parsePhoneList _ = typeMismatch "whatevs"

parsePhones o = liftA2 (++) (parsePhone o) (o .: "phones" >>= parsePhoneList)

instance FromJSON RawDebtRec where
  parseJSON o = pure RawDebtRec
    <*> parseCompany o
    <*> parseDebt o
    <*> parsePhones o