~ubuntu-branches/ubuntu/wily/agda/wily-proposed

« back to all changes in this revision

Viewing changes to src/full/Agda/TypeChecking/Monad/Base/KillRange.hs

  • Committer: Package Import Robot
  • Author(s): Iain Lane, d5cf60f
  • Date: 2015-05-20 13:08:33 UTC
  • mfrom: (1.1.7)
  • Revision ID: package-import@ubuntu.com-20150520130833-cdcmhagwsouna237
Tags: 2.4.2.2-2
[d5cf60f] Depend on ${shlibs:Depends}, to get libc (& maybe other) deps

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
{-# LANGUAGE FlexibleInstances, TypeSynonymInstances, OverlappingInstances #-}
 
1
{-# LANGUAGE FlexibleInstances    #-}
 
2
{-# LANGUAGE OverlappingInstances #-}
 
3
{-# LANGUAGE TypeSynonymInstances #-}
2
4
 
3
5
-- | 'KillRange' instances for data structures from 'Agda.TypeChecking.Monad.Base'.
4
6
 
29
31
  killRange (Section tel freeVars) = killRange2 Section tel freeVars
30
32
 
31
33
instance KillRange Definition where
32
 
  killRange (Defn ai name t pols occs displ mut compiled def) =
33
 
    killRange9 Defn ai name t pols occs displ mut compiled def
 
34
  killRange (Defn ai name t pols occs displ mut compiled rew inst def) =
 
35
    killRange11 Defn ai name t pols occs displ mut compiled rew inst def
34
36
    -- TODO clarify: Keep the range in the defName field?
35
37
 
 
38
instance KillRange RewriteRule where
 
39
  killRange (RewriteRule q gamma lhs rhs t) =
 
40
    killRange5 RewriteRule q gamma lhs rhs t
 
41
 
36
42
instance KillRange CompiledRepresentation where
37
43
  killRange = id
38
44
 
40
46
  killRange def =
41
47
    case def of
42
48
      Axiom -> Axiom
43
 
      Function cls comp inv mut isAbs delayed proj static copy term extlam with ->
44
 
        killRange12 Function cls comp inv mut isAbs delayed proj static copy term extlam with
 
49
      Function cls comp inv mut isAbs delayed proj static copy term extlam with cop ->
 
50
        killRange13 Function cls comp inv mut isAbs delayed proj static copy term extlam with cop
45
51
      Datatype a b c d e f g h i j   -> killRange10 Datatype a b c d e f g h i j
46
52
      Record a b c d e f g h i j k l -> killRange12 Record a b c d e f g h i j k l
47
53
      Constructor a b c d e          -> killRange5 Constructor a b c d e