semantic/test/fixtures/haskell/corpus/statements.parseA.txt

(Module
  (Empty)
  (Statements
    (Function
      (VariableIdentifier)
      (Statements
        (If
          (VariableIdentifier)
          (Integer)
          (Integer))))
    (Function
      (VariableIdentifier)
      (Statements
        (If
          (VariableIdentifier)
          (VariableIdentifier)
          (VariableIdentifier))))
    (Function
      (VariableIdentifier)
      (Statements
        (If
          (If
            (VariableIdentifier)
            (VariableIdentifier)
            (VariableIdentifier))
          (VariableIdentifier)
          (VariableIdentifier))))
    (Function
      (VariableIdentifier)
      (Statements
        (If
          (If
            (VariableIdentifier)
            (VariableIdentifier)
            (VariableIdentifier))
          (VariableIdentifier)
          (VariableIdentifier))))
    (TypeSignature
      (VariableIdentifier)
      (FunctionType
        (Type
          (Array
            (Type
              (TypeVariableIdentifier)
              (TypeParameters)
              (Empty)))
          (TypeParameters)
          (Empty))
        (Type
          (TypeVariableIdentifier)
          (TypeParameters)
          (Empty))))
    (Function
      (VariableIdentifier)
      (ListConstructor)
      (Statements
        (App
          (VariableIdentifier)
          (Empty)
          (TextElement))))
    (Function
      (VariableIdentifier)
      (Statements
        (VariableIdentifier)
        (ConstructorOperator
          (ConstructorSymbol))
        (Wildcard))
      (Statements
        (VariableIdentifier)))))