X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.icl;h=cbf06c03d7fb88237fc3bd884df064021edfdb79;hb=64f379e7446a716257f6030157f2cb254200aa7b;hp=306f93d6884f8ffa0c14228319b879647df5b0c5;hpb=0efbd98973520d55ec4e80e443911f43b3c28a0d;p=mTask.git diff --git a/mTaskInterpret.icl b/mTaskInterpret.icl index 306f93d..cbf06c0 100644 --- a/mTaskInterpret.icl +++ b/mTaskInterpret.icl @@ -32,6 +32,7 @@ decode x | size x == 0 = MTEmpty = case x.[0] of '\0' = MTEmpty + '\n' = MTEmpty 'm' = MTMessage x 'u' = MTPub (from16bit (x % (1,3))) (x % (3,5)) _ = abort ("Didn't understand message: " +++ join " " [toString (toInt c)\\c<-: x] +++ "\n")