prettyTypeSpecs :: Specs
prettyTypeSpecs = describe "prettyType" $ prettyTypeTestCases prettyFrom
  where
    prettyFrom expected input = 
        case runEParser "tests" input (aType <* eof) of
          Right result -> eTestAssertEqual "prettyType" 
                            expected
                            (render $ prettyType result)
          Left e -> error $ "fix your stupid test: " ++ show e
prettyTypeSpecs :: Specs
prettyTypeSpecs = describe "prettyType" $ prettyTypeTestCases prettyFrom
  where
    prettyFrom expected input = 
        case runEParser "tests" input (aType <* eof) of
          Right result -> eTestAssertEqual "prettyType" 
                            expected
                            (render $ prettyType result)
          Left e -> error $ "fix your stupid test: " ++ show e
prettyTypeSpecs = describe "prettyType" $ prettyTypeTestCases prettyFrom
  where
    prettyFrom expected input = 
        case runEParser "tests" input (aType <* eof) of
          Right result -> eTestAssertEqual "prettyType" 
                            expected
                            (render $ prettyType result)
          Left e -> error $ "fix your stupid test: " ++ show e