rintAsDhall :: ToDhall a => Params -> a -> IO ()
printAsDhall Params{colour} =
    Dhall.hPut colour Dhall.Unicode stdout Dhall.inject

printAsDhall :: ToDhall a => Params -> a -> IO ()
printAsDhall Params{colour} =
    Dhall.hPut colour Dhall.Unicode stdout Dhall.inject
printAsDhall Params{colour} =
    Dhall.hPut colour Dhall.Unicode stdout Dhall.inject