showModel qi qs (Model name@(SequelSymbol _) fields safe) =
      "CREATE TABLE " `mappend`
      (if safe then " IF NOT EXISTS " else "") `mappend`
      showExpr qi qs name `mappend`
      "(" `mappend`
      showFields qi qs name fields `mappend`
      ")"
showModel qi qs (Model name@(SequelSymbol _) fields safe) =
      "CREATE TABLE " `mappend`
      (if safe then " IF NOT EXISTS " else "") `mappend`
      showExpr qi qs name `mappend`
      "(" `mappend`
      showFields qi qs name fields `mappend`
      ")"
showModel qi qs (Model name@(SequelSymbol _) fields safe) =
      "CREATE TABLE " `mappend`
      (if safe then " IF NOT EXISTS " else "") `mappend`
      showExpr qi qs name `mappend`
      "(" `mappend`
      showFields qi qs name fields `mappend`
      ")"