X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.icl;h=d88c3180853244062b0ca6ff268cc5edf8f57133;hb=2520cfc83a29d273b17441c5cdf411f1182bbb62;hp=306f93d6884f8ffa0c14228319b879647df5b0c5;hpb=0efbd98973520d55ec4e80e443911f43b3c28a0d;p=mTask.git diff --git a/mTaskInterpret.icl b/mTaskInterpret.icl index 306f93d..d88c318 100644 --- a/mTaskInterpret.icl +++ b/mTaskInterpret.icl @@ -32,9 +32,10 @@ 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") + _ = MTMessage x//abort ("Didn't understand message: " +++ join " " [toString (toInt c)\\c<-: x] +++ "\n") safePrint :== toString o toJSON