main :: IO ()
main = do
  rawJSON <- B.readFile "./test.json"
  B.putStr rawJSON
  case decode rawJSON :: Maybe Value of
    Just jsonVal -> B.putStr $ encode (jsonVal)
    Nothing -> error "Parse err"
main :: IO ()
main = do
  rawJSON <- B.readFile "./test.json"
  B.putStr rawJSON
  case decode rawJSON :: Maybe Value of
    Just jsonVal -> B.putStr $ encode (jsonVal)
    Nothing -> error "Parse err"
main = do
  rawJSON <- B.readFile "./test.json"
  B.putStr rawJSON
  case decode rawJSON :: Maybe Value of
    Just jsonVal -> B.putStr $ encode (jsonVal)
    Nothing -> error "Parse err"