fix(info): correctly indent docexample code block

This modifies the info command to print the docexample code block on a new line and indent each line by 4 spaces to align with the rest of the metadata.

Author: sqrew

src/Primitives.hs

@@ -352,7 +352,7 @@ primitiveInfo _ ctx target@(XObj (Sym path@(SymPath _ name) _) _ _) =
         >> maybe (pure ()) (printMetaBool "Private") (Meta.get "private" metaData)
         >> maybe (pure ()) (printMetaBool "Hidden") (Meta.get "hidden" metaData)
         >> maybe (pure ()) (printMetaVal "Signature" pretty) (Meta.get "sig" metaData)
-        >> maybe (pure ()) (printMetaVal "Example" (either (const "") id . unwrapStringXObj)) (Meta.get "docexample" metaData)
+        >> maybe (pure ()) (\xobj -> putStr ("  Example:\n" ++ (unlines . map ("    " ++) . lines $ either (const "") id (unwrapStringXObj xobj)))) (Meta.get "docexample" metaData)
         >> maybe (pure ()) printDeprecated (Meta.get "deprecated" metaData)
         >> when (projectPrintTypedAST proj) (putStrLnWithColor Yellow (prettyTyped x))
     printMetaBool :: String -> XObj -> IO ()