even more debugging

fsprojects · Jul 10, 2016 · 0b29d9c · 0b29d9c
1 parent 67adf38
commit 0b29d9c
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/Paket.Core/InstallModel.fs b/src/Paket.Core/InstallModel.fs
@@ -349,7 +349,9 @@ module InstallModel =
         match restrictions with
         | [] -> installModel
         | restrictions ->
+            printfn "Restriction (in applyFrameworkRestrictions): %A" restrictions
             let applRestriction folder =
+                printfn "Restriction (in applRestriction): %A" restrictions
                 { folder with Targets = applyRestrictionsToTargets restrictions folder.Targets}
 
             { installModel with 

diff --git a/src/Paket.Core/Requirements.fs b/src/Paket.Core/Requirements.fs
@@ -408,6 +408,7 @@ let filterRestrictions (list1:FrameworkRestrictions) (list2:FrameworkRestriction
 /// Get if a target should be considered with the specified restrictions
 let isTargetMatchingRestrictions =
     (*memoize <|*) fun (restrictions:FrameworkRestriction list, target) ->
+        printfn "Restriction (in isTargetMatchingRestrictions): %A" restrictions
         if List.isEmpty restrictions then true else
         match target with
         | SinglePlatform (Runtimes _ ) -> true
@@ -425,7 +426,7 @@ let isTargetMatchingRestrictions =
                             | DotNetStandard _,  DotNetFramework _ -> false
                             | _ -> 
                               let isComp = pf.IsCompatible(fw)
-                              printf "pf (%A) is compatible with fw (%A): %A" pf fw isComp 
+                              printfn "pf (%A) is compatible with fw (%A): %A" pf fw isComp 
                               isComp
                     | FrameworkRestriction.Portable _ -> false
                     | FrameworkRestriction.AtLeast fw ->
@@ -447,6 +448,7 @@ let isTargetMatchingRestrictions =
 
 /// Get all targets that should be considered with the specified restrictions
 let applyRestrictionsToTargets (restrictions:FrameworkRestriction list) (targets: TargetProfile list) =
+    printfn "Restriction (in applyRestrictionsToTargets): %A" restrictions
     targets 
     |> List.filter (fun t -> isTargetMatchingRestrictions(restrictions,t))