From a57c915f9452024a245bf27f04535365dc0f7b39 Mon Sep 17 00:00:00 2001
From: Feufochmar <me@feuforeve.fr>
Date: Tue, 5 Nov 2019 17:39:29 +0100
Subject: [PATCH] Move the json representation in the web folder

---
 extractor.rkt      | 8 ++++----
 name-generator.rkt | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/extractor.rkt b/extractor.rkt
index 5f977bb..2f46278 100644
--- a/extractor.rkt
+++ b/extractor.rkt
@@ -15,9 +15,9 @@
 ;           "person-name-masculine": [{"value": "...", "count": X}, ...],
 ;           "person-name-feminine": [{"value": "...", "count": X}, ...],
 ;           "patterns": [{"value": [...], "count": X}, ...],
-;           "locality-markov": {"order": X, "next": [{ "sequence": [...], "distribution": [{"value": "...", "count": X}, ...] }, ...]},
-;           "area-markov": {"order": X, "next": [{"sequence": [...], "distribution": [{"value": "...", "count": X}, ...] }, ...]},
-;           "river-markov": {"order": X, "next": [{"sequence": [...], "distribution": [{"value": "...", "count": X}, ...] }, ...]},
+;           "locality-name": {"order": X, "next": [{ "sequence": [...], "distribution": [{"value": "...", "count": X}, ...] }, ...]},
+;           "area-name": {"order": X, "next": [{"sequence": [...], "distribution": [{"value": "...", "count": X}, ...] }, ...]},
+;           "river-name": {"order": X, "next": [{"sequence": [...], "distribution": [{"value": "...", "count": X}, ...] }, ...]},
 ;         },
 ;         ...
 ;      ],
@@ -416,6 +416,6 @@
 (define (extractor->jsexpr extractor)
   (map region->jsexpr (hash-values extractor)))
 
-(define *output* (open-output-file "./gener-communes.json" #:exists 'truncate/replace))
+(define *output* (open-output-file "./web/gener-communes.json" #:exists 'truncate/replace))
 ; output lisp structure
 (write-json (extractor->jsexpr *extractor*) *output*)
diff --git a/name-generator.rkt b/name-generator.rkt
index 1f47229..dec7c52 100644
--- a/name-generator.rkt
+++ b/name-generator.rkt
@@ -218,7 +218,7 @@
   gen)
 
 ; Read the file containing all the data
-(define *input* (open-input-file "./gener-communes.json"))
+(define *input* (open-input-file "./web/gener-communes.json"))
 
 ; Process the input and train
 (define *generator* (jsexpr->generator (read-json *input*)))