fix build

2 files changed, 2 insertions, 1 deletions

diff --git a/src/LambdaCube/Compiler/Infer.hs b/src/LambdaCube/Compiler/Infer.hs
index eaafc3cd..4a04564c 100644
--- a/src/LambdaCube/Compiler/Infer.hs
+++ b/src/LambdaCube/Compiler/Infer.hs
@@ -28,7 +28,7 @@ module LambdaCube.Compiler.Infer
     , nType, conType, neutType, neutType', appTy, mkConPars, makeCaseFunPars, makeCaseFunPars'
     , MaxDB, unfixlabel
     , ErrorMsg, errorRange
-    , FName (..)
+    , FName (..), FileInfo(..)
     ) where
 
 import Data.Monoid
diff --git a/src/LambdaCube/Compiler/Lexer.hs b/src/LambdaCube/Compiler/Lexer.hs
index d8888a28..6817f9ed 100644
--- a/src/LambdaCube/Compiler/Lexer.hs
+++ b/src/LambdaCube/Compiler/Lexer.hs
@@ -127,6 +127,7 @@ data FileInfo = FileInfo
 
 instance Eq FileInfo where (==) = (==) `on` fileId
 instance Ord FileInfo where compare = compare `on` fileId
+instance Show FileInfo where show = show . filePath
 
 data Range = Range !FileInfo !SourcePos' !SourcePos'
     deriving (Eq, Ord)