Perl has broken my brain. This wont work; dummy!

ThisIsNotPerl.hs

prettyPrintDBInfo :: DBInfo -> String
prettyPrintDBInfo (DBInfo dbName (DBOptions useBString  _ ) tbls) = unlines [
  "DBInfo { ",
  "  dbName = \"" ++ dbName ++ "\"",
  "  , opts = DBOpts { useBString = " ++ (show useBString) ++ " }",
  "  , tbls = [" ,
  (map prettyPrintTableInfo tbls) ,
  "  ] ",
  "}"
  ]
                                                                    
prettyPrintTableInfo (TInfo tName cols) = unlines [
  "    TInfo {" ,
  "      tname = \""++ tName ++ "\"",
  "      cols = [",
  (map (( "        " ++ ) . show) cols) ,
  "      ]",
  "    }"
  ];