module Jikka.Common.Format.Show where

import Data.Text (Text, pack)

run :: Show program => program -> Either String Text
run :: program -> Either String Text
run program
e = Text -> Either String Text
forall a b. b -> Either a b
Right (Text -> Either String Text)
-> (String -> Text) -> String -> Either String Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Text
pack (String -> Either String Text) -> String -> Either String Text
forall a b. (a -> b) -> a -> b
$ program -> String
forall a. Show a => a -> String
show program
e