diff --git a/semantic-core/src/Data/Loc.hs b/semantic-core/src/Data/Loc.hs
index 38fa2b1b8..0d5f2193e 100644
--- a/semantic-core/src/Data/Loc.hs
+++ b/semantic-core/src/Data/Loc.hs
@@ -1,7 +1,6 @@
 {-# LANGUAGE RecordWildCards #-}
 module Data.Loc
-( Loc(..)
-, Path(..)
+( Path(..)
 , here
 , stackLoc
 ) where
@@ -13,12 +12,6 @@ import Source.Span
 newtype Path = Path { getPath :: Text }
   deriving (Eq, Ord, Show)
 
-data Loc = Loc
-  { locPath :: !Path
-  , locSpan :: {-# UNPACK #-} !Span
-  }
-  deriving (Eq, Ord, Show)
-
 
 here :: HasCallStack => Maybe (Path, Span)
 here = stackLoc callStack