From 0eb87f34c4b897e7da1c2ca56cf76c47714538ed Mon Sep 17 00:00:00 2001 From: Nikolay Yakimov Date: Sun, 10 Jul 2016 18:35:44 +0300 Subject: [PATCH] Fix Binary SymbolDb instance for ghc 7.6 --- Language/Haskell/GhcMod/Find.hs | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/Language/Haskell/GhcMod/Find.hs b/Language/Haskell/GhcMod/Find.hs index bd51749..23462aa 100644 --- a/Language/Haskell/GhcMod/Find.hs +++ b/Language/Haskell/GhcMod/Find.hs @@ -72,7 +72,16 @@ data SymbolDb = SymbolDb , sdTimestamp :: ModTime } deriving (Generic) +#if __GLASGOW_HASKELL__ >= 708 instance Binary SymbolDb +#else +instance Binary SymbolDb where + put (SymbolDb a b) = put a >> put b + get = do + a <- get + b <- get + return (SymbolDb a b) +#endif instance NFData SymbolDb isOutdated :: IOish m => SymbolDb -> GhcModT m Bool