makeAssertionUnsafe :: String -> Assertion
makeAssertionUnsafe x = case parse pAssertionUnsafe "" x of
  (Left err) -> error . show $ err
  (Right a) -> a
makeAssertionUnsafe :: String -> Assertion
makeAssertionUnsafe x = case parse pAssertionUnsafe "" x of
  (Left err) -> error . show $ err
  (Right a) -> a
makeAssertionUnsafe x = case parse pAssertionUnsafe "" x of
  (Left err) -> error . show $ err
  (Right a) -> a