genGetAlignment :: CStruct -> String
genGetAlignment (CStruct name _) = concat [fst_line, middle_line, last_line]
    where fst_line    = concat ["HsInt16 getAlignment", name,"() {\n"]
          middle_line = concat ["    return alignof(",name,");\n"]
          last_line   = "}\n\n";
genGetAlignment :: CStruct -> String
genGetAlignment (CStruct name _) = concat [fst_line, middle_line, last_line]
    where fst_line    = concat ["HsInt16 getAlignment", name,"() {\n"]
          middle_line = concat ["    return alignof(",name,");\n"]
          last_line   = "}\n\n";
genGetAlignment (CStruct name _) = concat [fst_line, middle_line, last_line]
    where fst_line    = concat ["HsInt16 getAlignment", name,"() {\n"]
          middle_line = concat ["    return alignof(",name,");\n"]
          last_line   = "}\n\n";