Skip to content
Prev Previous commit
Next Next commit
restore GHC.Types prefixes
  • Loading branch information
clayrat committed Aug 7, 2023
commit 43333d6b560cf903b7c31d51f25dd53c97f370da
4 changes: 2 additions & 2 deletions src/GHC/Types_LHAssumptions.hs
Original file line number Diff line number Diff line change
Expand Up @@ -26,13 +26,13 @@ embed GHC.Prim.Addr# as Str
embed GHC.Integer.Type.Integer as int
embed GHC.Num.Integer as int

assume True :: {v:GHC.Types.Bool | v }
assume GHC.Types.True :: {v:GHC.Types.Bool | v }
assume GHC.Types.False :: {v:GHC.Types.Bool | (~ v) }
assume GHC.Types.isTrue# :: n:_ -> {v:GHC.Types.Bool | (n = 1 <=> v)}

assume GHC.Types.D# :: x:GHC.Prim.Double# -> {v: GHC.Types.Double | v = (x :: real) }
assume GHC.Types.F# :: x:GHC.Prim.Float# -> {v: GHC.Types.Float | v = (x :: real) }
assume I# :: x:GHC.Prim.Int# -> {v: GHC.Types.Int | v = (x :: int) }
assume GHC.Types.I# :: x:GHC.Prim.Int# -> {v: GHC.Types.Int | v = (x :: int) }
assume GHC.Types.C# :: x:GHC.Prim.Char# -> {v: GHC.Types.Char | v = (x :: Char) }
assume GHC.Types.W# :: w:GHC.Prim.Word# -> {v:GHC.Types.Word | v == w }

Expand Down