file-location 0.4.5.3 → 0.4.6

raw patch · 2 files changed

+21/−2 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Debug/FileLocation.hs +20/−1
• file-location.cabal +1/−1

@@ -3,9 +3,11 @@ -- Most would make sense in the Debug.Trace module -- There are Template Haskell versions that show you file locaiton information module Debug.FileLocation-  (debug, debugM, debugMsg, dbg, dbgMsg, trc, ltrace, ltraceM, strace, traceId)+  (debug, debugM, debugMsg, dbg, dbgMsg, trc, ltrace, ltraceM, strace, traceId, __LOC__)   where +import Control.Applicative ((<$>), (<*>), pure)+import Language.Haskell.TH (recConE, litE, stringL, integerL) import Language.Haskell.TH.Syntax import Debug.Util import Debug.Trace (trace)@@ -39,3 +41,20 @@   loc <- qLocation   let prefix = "DEBUG: " ++ (locationToString loc) ++ " "   [|(\_x -> ltraceM (prefix ++ show _x) _x)|]++instance Lift Loc where+    lift x = recConE 'Loc [ (,) <$> (pure 'loc_filename) <*> litE (stringL (loc_filename x))+                          , (,) <$> (pure 'loc_package) <*> litE (stringL (loc_package x))+                          , (,) <$> (pure 'loc_module) <*> litE (stringL (loc_module x))+                          , (,) <$> (pure 'loc_start) <*> [|($(litE (integerL (fromIntegral (fst (loc_start x))))),+                                                             $(litE (integerL (fromIntegral (snd (loc_start x)))))) :: (Int, Int)|]+                          , (,) <$> (pure 'loc_end) <*> [|($(litE (integerL (fromIntegral (fst (loc_end x))))),+                                                           $(litE (integerL (fromIntegral (snd (loc_end x)))))) :: (Int, Int)|] ]++-- | Embed an expression of type Loc containing the location+-- information for the place where it appears.  Could be used in+-- custom Exception types and similar:+--+-- > throw $ MyException $__LOC__+__LOC__ :: Q Exp+__LOC__ = lift =<< location

@@ -1,5 +1,5 @@ Name:                file-location-Version:             0.4.5.3+Version:             0.4.6 Synopsis:            common functions that show file location information Homepage:            https://github.com/gregwebs/FileLocation.hs License:             BSD3