oxilean_codegen/haskell_backend/
haskelldecl_traits.rs1use crate::lcnf::*;
12
13use super::types::HaskellDecl;
14use std::fmt;
15
16impl fmt::Display for HaskellDecl {
17 fn fmt(&self, f: &mut fmt::Formatter<'_>) -> fmt::Result {
18 match self {
19 HaskellDecl::Data(d) => write!(f, "{}", d),
20 HaskellDecl::Newtype(n) => write!(f, "{}", n),
21 HaskellDecl::TypeClass(c) => write!(f, "{}", c),
22 HaskellDecl::Instance(i) => write!(f, "{}", i),
23 HaskellDecl::Function(func) => write!(f, "{}", func),
24 HaskellDecl::TypeSynonym(name, params, ty) => {
25 write!(f, "type {}", name)?;
26 for p in params {
27 write!(f, " {}", p)?;
28 }
29 write!(f, " = {}", ty)
30 }
31 HaskellDecl::Comment(c) => write!(f, "-- {}", c),
32 HaskellDecl::RawLine(l) => write!(f, "{}", l),
33 }
34 }
35}