make pool_solvable2str use -<arch> for haiku

diff --git a/src/solvable.c b/src/solvable.c
index 8392f49..a5baea5 100644 (file)
--- a/src/solvable.c
+++ b/src/solvable.c
@@ -53,7 +53,7 @@ pool_solvable2str(Pool *pool, Solvable *s)
     }
   if (al)
     {
-      p[nl + el] = '.';
+      p[nl + el] = pool->disttype == DISTTYPE_HAIKU ? '-' : '.';
       strcpy(p + nl + el + 1, a);
     }
   return p;