hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix Binary SymbolDb instance for ghc 7.6

Browse Source
This commit is contained in:
Nikolay Yakimov 2016-07-10 18:35:44 +03:00
parent 1a302707b3
commit 0eb87f34c4
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Language/Haskell/GhcMod/Find.hs
View File

@ -72,7 +72,16 @@ data SymbolDb = SymbolDb
, sdTimestamp :: ModTime , sdTimestamp :: ModTime
} deriving (Generic) } deriving (Generic)
#if __GLASGOW_HASKELL__ >= 708
instance Binary SymbolDb 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 instance NFData SymbolDb
isOutdated :: IOish m => SymbolDb -> GhcModT m Bool isOutdated :: IOish m => SymbolDb -> GhcModT m Bool