curl --request POST \
  --url https://api.iotools.cloud/v1/tool/haskell-code-formatter \
  --header 'Authorization: Bearer <token>' \
  --header 'Content-Type: application/json' \
  --data '
{
  "haskellInput": "{-# LANGUAGE ScopedTypeVariables #-}\n{-# LANGUAGE OverloadedStrings #-}\n{-# LANGUAGE TupleSections #-}\nmodule Main where\n\nimport qualified Data.Map.Strict as Map\nimport Data.List(sort,nub)\nimport Data.Maybe(fromMaybe,catMaybes)\nimport qualified Data.Text as T\nimport System.IO\nimport Control.Monad(forM_,when,unless)\n\n-- A simple Person record\ndata Person=Person{personName::String,personAge::Int,personEmail::Maybe String}deriving(Show,Eq)\n\ndefaultAge::Int\ndefaultAge=18\n\ngreet::String->String\ngreet name=\"Hello, \"++name++\"!\"\n\ncategorize::Int->String\ncategorize age\n  |age<13=\"child\"\n  |age<20=\"teen\"\n  |age<65=\"adult\"\n  |otherwise=\"senior\"\n\nprocessPeople::[Person]->Map.Map String Int\nprocessPeople ps=foldr step Map.empty ps\n  where\n    step p acc=Map.insertWith (+) (categorize (personAge p)) 1 acc\n\nmain::IO ()\nmain=do\n  let people=[Person \"Alice\" 30 (Just \"alice@example.com\"),Person \"Bob\" 12 Nothing,Person \"Carol\" 67 (Just \"carol@example.com\")]\n  forM_ people$\\p->putStrLn(greet(personName p))\n  let summary=processPeople people\n  mapM_ print(Map.toList summary)\n",
  "indentSize": "2",
  "maxLineLength": "100",
  "sortImports": "true",
  "sortPragmas": "true",
  "collapseBlankLines": "true"
}
'

{
  "tool": "haskell-code-formatter",
  "tool_version": "1.0.1",
  "outputs": {
    "formattedOutput": "{-# LANGUAGE OverloadedStrings #-}\n{-# LANGUAGE ScopedTypeVariables #-}\n{-# LANGUAGE TupleSections #-}\n\nmodule Main where\n\nimport Control.Monad (forM_, when, unless)\nimport Data.List (sort, nub)\nimport Data.Maybe (fromMaybe, catMaybes)\nimport System.IO\nimport qualified Data.Map.Strict as Map\nimport qualified Data.Text as T\n\n-- A simple Person record\ndata Person = Person {personName :: String, personAge :: Int, personEmail :: Maybe String} deriving (Show, Eq)\n\ndefaultAge :: Int\ndefaultAge = 18\n\ngreet :: String -> String\ngreet name = \"Hello, \" ++ name ++ \"!\"\n\ncategorize :: Int -> String\ncategorize age\n  | age < 13 = \"child\"\n  | age < 20 = \"teen\"\n  | age < 65 = \"adult\"\n  | otherwise = \"senior\"\n\nprocessPeople :: [Person] -> Map.Map String Int\nprocessPeople ps = foldr step Map.empty ps\n  where\n    step p acc = Map.insertWith (+) (categorize (personAge p)) 1 acc\n\nmain :: IO ()\nmain = do\n  let people = [Person \"Alice\" 30 (Just \"alice@example.com\"), Person \"Bob\" 12 Nothing, Person \"Carol\" 67 (Just \"carol@example.com\")]\n  forM_ people $ \\p -> putStrLn (greet (personName p))\n  let summary = processPeople people\n  mapM_ print (Map.toList summary)\n",
    "validation": [
      {
        "issue": "Valid Haskell — 2 line(s) exceed 100 chars: line 15 (110 chars), line 37 (132 chars)"
      }
    ]
  },
  "credits_used": 3,
  "credits_remaining": null
}