never executed always true always false

    1 {-# LANGUAGE RecordWildCards #-}
    2 
    3 module Conjure.Language.ParserC
    4   ( parseModel,
    5   )
    6 where
    7 
    8 import Conjure.Language.AST.ASTParser (parseProgram)
    9 import Conjure.Language.AST.Syntax (ProgramTree)
   10 import Conjure.Language.Definition
   11 import Conjure.Language.Parser (Pipeline)
   12 import Conjure.Language.Validator qualified as V
   13 import Conjure.Prelude
   14 
   15 parseModel :: Pipeline ProgramTree Model
   16 parseModel = (parseProgram, V.validateModel, False)