Add HasSrcSpan instances

haskell · May 23, 2022 · 9283e5f · 9283e5f
1 parent ce83ac1
commit 9283e5f
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/ghcide/src/Development/IDE/GHC/Compat/Core.hs b/ghcide/src/Development/IDE/GHC/Compat/Core.hs
@@ -840,6 +840,8 @@ pattern L l a <- GHC.L (getLoc -> l) a
 type HasSrcSpan = SrcLoc.HasSrcSpan
 getLoc :: SrcLoc.HasSrcSpan a => a -> SrcLoc.SrcSpan
 getLoc = SrcLoc.getLoc
+instance HasSrcSpan SrcLoc.SrcSpan where
+  getLoc = id
 
 #else
 
@@ -849,6 +851,8 @@ instance HasSrcSpan Name where
     getLoc = nameSrcSpan
 instance HasSrcSpan (SrcLoc.GenLocated SrcSpan a) where
     getLoc = SrcLoc.getLoc
+instance HasSrcSpan SrcSpan where
+  getLoc = id
 
 #endif