loch-th 0.2.1 → 0.2.2

raw patch · 2 files changed

+14/−13 lines, 2 filesdep ~basePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: base

API changes (from Hackage documentation)

Files

• Debug/Trace/LocationTH.hs +10/−9
• loch-th.cabal +4/−4

@@ -10,7 +10,7 @@ -- This module provides a Template Haskell based mechanism to tag failures -- with the location of the failure call. The location message includes the -- file name, line and column numbers.--- +--  {-# LANGUAGE TemplateHaskell #-} module Debug.Trace.LocationTH@@ -29,6 +29,7 @@ import Language.Haskell.TH.Ppr (pprint) import Language.Haskell.TH.Syntax (location, Loc(..), Q, Exp, lift) import System.IO.Unsafe  (unsafePerformIO)+import qualified Text.PrettyPrint.HughesPJ as PP import Text.PrettyPrint.HughesPJ  ppUnless :: Bool -> Doc -> Doc@@ -41,16 +42,16 @@             , loc_start = (sline, start_col)             , loc_end = (eline, end_col) })     | sline == eline = hcat-        [ text src_path <> colon+        [ text src_path PP.<> colon         , int sline, char ':', int start_col         , ppUnless (end_col - start_col <= 1)-                   (char '-' <> int (end_col-1))+                   (char '-' PP.<> int (end_col-1))         ]     | otherwise = hcat-        [ text src_path <> colon-        , parens (int sline <> char ',' <>  int start_col)+        [ text src_path PP.<> colon+        , parens (int sline PP.<> char ',' PP.<>  int start_col)         , char '-'-        , parens (int eline <> char ',' <>+        , parens (int eline PP.<> char ',' PP.<>             if end_col == 0 then int end_col else int (end_col-1))         ] @@ -59,7 +60,7 @@ -- -- @$__LOCATION__ :: 'String'@ ----- >>> $__LOCATION__ +-- >>> $__LOCATION__ -- "<interactive>:1:1-13" -- __LOCATION__ :: Q Exp@@ -68,7 +69,7 @@ -- -- | If the first argument evaluates to 'True', then the result is the second -- argument. Otherwise an 'AssertionFailed' exception is raised, containing a--- 'String' with the source file and line number of the call to 'assert'. +-- 'String' with the source file and line number of the call to 'assert'. -- -- @$(assert [| 'False' |]) :: a -> a@ --@@ -117,7 +118,7 @@ -- message. -- -- @$check :: c -> c@--- +-- -- >>> $check $ head [] -- *** Exception: <interactive>:1:1-6: Prelude.head: empty list --

@@ -1,10 +1,10 @@ Name:                loch-th-Version:             0.2.1+Version:             0.2.2 Synopsis:            Support for precise error locations in source files (Template Haskell version) Description:         This module provides a Template Haskell based mechanism to-		     tag failures with the location of the failure call. The-		     location message includes the file name, line and column-		     numbers.+                     tag failures with the location of the failure call. The+                     location message includes the file name, line and column+                     numbers. Homepage:            https://github.com/liskin/loch-th License:             BSD3 License-file:        LICENSE