{-# LANGUAGE TemplateHaskell #-} module EasyLogger.Util ( liftLoc ) where import Language.Haskell.TH.Syntax as TH liftLoc :: Loc -> Q Exp liftLoc :: Loc -> Q Exp liftLoc (Loc String a String b String c (Int d1, Int d2) (Int e1, Int e2)) = [|Loc $(TH.lift a) $(TH.lift b) $(TH.lift c) ($(TH.lift d1), $(TH.lift d2)) ($(TH.lift e1), $(TH.lift e2)) |]