introduce PrintMorphism

copar.cabal

@@ -59,6 +59,7 @@ library
                      , Copar.FunctorExpression.Sorts
                      , Copar.FunctorExpression.Desorting
                      , Copar.FunctorExpression.Transform
+                     , Copar.CoalgebraPrinter
                      , Copar.Coalgebra.Parser
                      , Copar.Coalgebra.Parser.Class
                      , Copar.Coalgebra.Parser.Internal

src/Copar/Coalgebra/Printer.hs

+module Copar.Coalgebra.Printer
+  ( PrintMorphism(..)
+  , printFloat
+  ) where
+
+import qualified Data.Text.Lazy.Builder as Build
+import           Numeric (showFFloat)
+import           GHC.Float (double2Float)
+
+import           Data.Vector as V
+
+
+import           Copar.RefinementInterface
+
+class PrintMorphism f where
+  printMorphismPoint :: f () -> F1 f -> [(Label f, Build.Builder)] -> Build.Builder
+
+-- | Prints a `Double` in a format expected by the lexer.
+printFloat :: Double -> Build.Builder
+printFloat d = Build.fromString $ showFFloat Nothing (double2Float d) ""