stringLiteral :: LParser String
stringLiteral = ParseEither ok
  where
    ok (String s : ts) = Right (s, ts)
    ok ts = Left ("expected string literal", ts)
stringLiteral :: LParser String
stringLiteral = ParseEither ok
  where
    ok (String s : ts) = Right (s, ts)
    ok ts = Left ("expected string literal", ts)
stringLiteral = ParseEither ok
  where
    ok (String s : ts) = Right (s, ts)
    ok ts = Left ("expected string literal", ts)