mirror of
https://github.com/digital-asset/daml.git
synced 2024-09-20 09:17:43 +03:00
21 lines
785 B
Diff
21 lines
785 B
Diff
diff --git a/src/Development/IDE/Core/Shake.hs b/src/Development/IDE/Core/Shake.hs
|
|
index a471070..a2b3183 100644
|
|
--- a/src/Development/IDE/Core/Shake.hs
|
|
+++ b/src/Development/IDE/Core/Shake.hs
|
|
@@ -503,7 +503,14 @@ isBadDependency x
|
|
newtype Q k = Q (k, NormalizedFilePath)
|
|
deriving (Eq,Hashable,NFData, Generic)
|
|
|
|
-instance Binary k => Binary (Q k)
|
|
+instance Binary k => Binary (Q k) where
|
|
+ put (Q (k, fp)) = put (k, fp)
|
|
+ get = do
|
|
+ (k, fp) <- get
|
|
+ -- The `get` implementation of NormalizedFilePath
|
|
+ -- does not handle empty file paths so we
|
|
+ -- need to handle this ourselves here.
|
|
+ pure (Q (k, toNormalizedFilePath' fp))
|
|
|
|
instance Show k => Show (Q k) where
|
|
show (Q (k, file)) = show k ++ "; " ++ fromNormalizedFilePath file
|