Pass WATCH define in case of watch mode

Author: Krzysztof-Cieslak

src/Fornax/Fornax.fs

@@ -65,7 +65,7 @@ let createFileWatcher dir handler =
     fileSystemWatcher.Deleted.Add handler
 
     /// Adding handler to trigger websocket/live refresh
-    let contentChangedHandler _ = 
+    let contentChangedHandler _ =
         signalContentChanged.Trigger(Choice<unit,Error>.Choice1Of2 ())
     signalContentChanged.Trigger(Choice<unit,Error>.Choice1Of2 ())
     fileSystemWatcher.Created.Add contentChangedHandler
@@ -152,7 +152,7 @@ let main argv =
             0
         | Some Build ->
             try
-                do generateFolder cwd
+                do generateFolder cwd false
                 0
             with
             | FornaxGeneratorException message ->
@@ -167,7 +167,7 @@ let main argv =
 
             let guardedGenerate () =
                 try
-                    generateFolder cwd
+                    do generateFolder cwd true
                 with
                 | FornaxGeneratorException message ->
                     printfn "%s%s%s" message Environment.NewLine waitingForChangesMessage

src/Fornax/Generator.fs

@@ -15,7 +15,7 @@ module EvaluatorHelpers =
 
     let private sbOut = StringBuilder()
     let private sbErr = StringBuilder()
-    let internal fsi () =
+    let internal fsi (isWatch: bool) =
         let refs =
             ProjectSystem.FSIRefs.getRefs ()
             |> List.map (fun n -> sprintf "-r:%s" n)
@@ -29,8 +29,9 @@ module EvaluatorHelpers =
             let argv = [|
                 yield! refs
                 yield "--noframework"
-                yield "/temp/fsi.exe";
-                yield "--define:FORNAX"|]
+                if isWatch then  yield "--define:WATCH"
+                yield "--define:FORNAX"
+                yield "/temp/fsi.exe"; |]
             FsiEvaluationSession.Create(fsiConfig, argv, inStream, outStream, errStream)
         with
         | ex ->
@@ -180,12 +181,12 @@ module GeneratorEvaluator =
             |> Option.bind (tryUnbox<string>)
             |> function
                 | Some s -> Ok (Encoding.UTF8.GetBytes s)
-                | None -> 
+                | None ->
                     result
                     |> Option.bind (tryUnbox<byte[]>)
                     |> function
                         | Some bytes -> Ok bytes
-                        | None -> 
+                        | None ->
                             sprintf "HTML generator %s couldn't be compiled" generatorPath |> Error)
 
     ///`generatorPath` - absolute path to `.fsx` file containing the generator
@@ -200,7 +201,7 @@ module GeneratorEvaluator =
             result
             |> Option.bind (tryUnbox<(string * string) list>)
             |> function
-                | Some files -> Ok (files |> List.map (fun (o, r) -> o, Encoding.UTF8.GetBytes r)) 
+                | Some files -> Ok (files |> List.map (fun (o, r) -> o, Encoding.UTF8.GetBytes r))
                 | None ->
                     result
                     |> Option.bind (tryUnbox<(string * byte[]) list>)
@@ -421,7 +422,7 @@ module Logger =
     let errorfn str = Printf.kprintf (fun s -> use c = consoleColor ConsoleColor.Red in printfn "%s" s) str
 
 ///`projectRoot` - path to the root of website
-let generateFolder (projectRoot : string) =
+let generateFolder (projectRoot : string) (isWatch: bool) =
 
     let relative toPath fromPath =
         let toUri = Uri(toPath)
@@ -432,7 +433,7 @@ let generateFolder (projectRoot : string) =
         if projectRoot.EndsWith (string Path.DirectorySeparatorChar) then projectRoot
         else projectRoot + (string Path.DirectorySeparatorChar)
 
-    use fsi = EvaluatorHelpers.fsi ()
+    use fsi = EvaluatorHelpers.fsi (isWatch)
     let sc = SiteContents ()
     let config =
         let configPath = Path.Combine(projectRoot, "config.fsx")