From f0510a9dd529e68f4f29e592d5bc17cd99c6f2ce Mon Sep 17 00:00:00 2001
From: PtrMan <robertw89@googlemail.com>
Date: Sat, 21 Sep 2019 16:52:38 +0200
Subject: [PATCH] Update: Reporting

---
 ALANNStreams/IO/Reporting.fs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ALANNStreams/IO/Reporting.fs b/ALANNStreams/IO/Reporting.fs
index 11bd7a2..7eed974 100644
--- a/ALANNStreams/IO/Reporting.fs
+++ b/ALANNStreams/IO/Reporting.fs
@@ -39,11 +39,11 @@ let displayAnswer (answer : Answer) =
     match systemState.answerDict.TryGetValue answer' with
     | (false, _) ->
         match systemState.answerDict.TryAdd(answer', (answer.Prefix, answer.Term, answer.TV)) with
-        | true -> printActor <! PrintMessage (sprintf "?%s" (answer.Prefix + answer.Term + answer.TV))
+        | true -> printActor <! PrintMessage (sprintf "?%s" (answer.Prefix + answer.Term + "." + answer.TV))
         | _ -> printfn "Add failed"; ()
     | (true, ((_, _, tv) as existing)) when tv < answer.TV -> 
         match systemState.answerDict.TryUpdate(answer', (answer.Prefix, answer.Term, answer.TV), existing) with
-        | true -> printActor <! PrintMessage (sprintf "?%s" (answer.Prefix + answer.Term + answer.TV))
+        | true -> printActor <! PrintMessage (sprintf "?%s" (answer.Prefix + answer.Term + "." + answer.TV))
         | _ -> printfn "Update failed";()
     | _ -> ()