stuffHS info = do
    let hs_struct = infoToHSStruct info 
        datatype  = show hs_struct
        instanced = genCheckable hs_struct
        arbitrary = genArbitrary hs_struct
        ffi       = genFFI hs_struct 
    concat [datatype, instanced, arbitrary, ffi]
stuffHS info = do
    let hs_struct = infoToHSStruct info 
        datatype  = show hs_struct
        instanced = genCheckable hs_struct
        arbitrary = genArbitrary hs_struct
        ffi       = genFFI hs_struct 
    concat [datatype, instanced, arbitrary, ffi]
stuffHS info = do
    let hs_struct = infoToHSStruct info 
        datatype  = show hs_struct
        instanced = genCheckable hs_struct
        arbitrary = genArbitrary hs_struct
        ffi       = genFFI hs_struct 
    concat [datatype, instanced, arbitrary, ffi]