From 14dfbcc624dadffcb54e58cbb26f3af24b77595a Mon Sep 17 00:00:00 2001 From: krasimir Date: Mon, 14 Sep 2009 16:23:23 +0000 Subject: clean up the GF.Grammar API --- src/GF/Infra/Modules.hs | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'src/GF/Infra/Modules.hs') diff --git a/src/GF/Infra/Modules.hs b/src/GF/Infra/Modules.hs index 0b951dd14..11e6d0a1f 100644 --- a/src/GF/Infra/Modules.hs +++ b/src/GF/Infra/Modules.hs @@ -33,7 +33,7 @@ module GF.Infra.Modules ( IdentM(..), abstractOfConcrete, abstractModOfConcrete, lookupModule, lookupModuleType, lookupInfo, - lookupPosition, showPosition, ppPosition, + lookupPosition, ppPosition, isModAbs, isModRes, isModCnc, isModTrans, sameMType, isCompilableModule, isCompleteModule, allAbstracts, greatestAbstract, allResources, @@ -268,12 +268,6 @@ lookupInfo mo i = lookupTree show i (jments mo) lookupPosition :: (Show i, Ord i) => ModInfo i a -> i -> Err (String,(Int,Int)) lookupPosition mo i = lookupTree show i (positions mo) -showPosition :: (Show i, Ord i) => ModInfo i a -> i -> String -showPosition mo i = case lookupPosition mo i of - Ok (f,(b,e)) | b == e -> "in" +++ f ++ ", line" +++ show b - Ok (f,(b,e)) -> "in" +++ f ++ ", lines" +++ show b ++ "-" ++ show e - _ -> "" - ppPosition :: (Show i, Ord i) => ModInfo i a -> i -> Doc ppPosition mo i = case lookupPosition mo i of Ok (f,(b,e)) | b == e -> text "in" <+> text f <> text ", line" <+> int b -- cgit v1.2.3