Merge pull request #332 from oikku/master

Invalidate SqlFile type when referenced SQL file is modified.

Author: smoothdeveloper

src/SqlClient.DesignTime/ProvidedTypesCache.fs

@@ -8,5 +8,11 @@ type TypeName = string
 type Cache<'a>() =
     let cache = ConcurrentDictionary<TypeName, Lazy<'a>>()
 
+    member __.TryGetValue(typeName: TypeName) =
+        cache.TryGetValue(typeName)
+
     member __.GetOrAdd(typeName: TypeName, value: Lazy<'a>): 'a = 
-        cache.GetOrAdd(typeName, value).Value
+        cache.GetOrAdd(typeName, value).Value
+
+    member __.Remove(typeName: TypeName) =
+        cache.TryRemove(typeName) |> ignore

src/SqlClient.DesignTime/SingleRootTypeProvider.fs

@@ -21,8 +21,22 @@ type SingleRootTypeProvider(config: TypeProviderConfig, providerName, parameters
         providerType.DefineStaticParameters(
             parameters = parameters,             
             instantiationFunction = fun typeName args ->
-                let typ, monitors = this.CreateRootType(assembly, nameSpace, typeName, args)
-                cache.GetOrAdd(typeName, typ)
+                match cache.TryGetValue(typeName) with
+                | true, cachedType -> cachedType.Value
+                | false, _ -> 
+                    let typ, monitors = this.CreateRootType(assembly, nameSpace, typeName, args)
+                    monitors
+                    |> Seq.iter(fun m ->
+                        match m with
+                        | :? System.Runtime.Caching.ChangeMonitor as monitor ->
+                            monitor.NotifyOnChanged(fun _ -> 
+                                cache.Remove(typeName)
+                                this.Invalidate()
+                                monitor.Dispose()
+                            )
+                        | _ -> ()
+                    )
+                    cache.GetOrAdd(typeName, typ)
         )
 
         this.AddNamespace( nameSpace, [ providerType ])