benannte Implementierung zu Standardimplementierung

Question

Ich definierte eine benannte Implementierung für die Typklasse Ord für Typ Int.

[mijnOrd] Ord Int where 
    compare n1 n2 = ... 

Wie kann ich importieren diese benannte Implementierung und verwenden Sie es als „default“

• so in einem anderen Modul möchte ich diese Implementierung importieren
• Mark es als Standard
• Und es verwenden als ob es Standard

-

sort [1,5,2] -- output without importing as default: [1,2,5] 
sort [1,5,2] -- output with importing as default: [5,2,1] 

Ist das in Idris möglich?

Answer 1

Dies ist möglich, da Idris 0,12 using -Blöcke mit:

Export Ihres benannten Schnittstelle in einem Modul, sagt MyOrd.idr:

module MyOrd 

-- Reverse order for `Nat` 
export 
[myOrd] Ord Nat where 
    compare Z Z = EQ 
    compare Z (S k) = GT 
    compare (S k) Z = LT 
    compare (S k) (S j) = compare @{myOrd} k j 

es gerade in einem anderen Modul importiert Dann und alles einpacken, die verwendet werden sollen es als Standard in einem entsprechenden using -Block wie so:

-- Main.idr 
module Main 

import MyOrd 

using implementation myOrd 
    test : List Nat -> List Nat 
    test = sort 

main : IO() 
main = putStrLn $ show $ test [3, 1, 2] 

Dies solltedrucken.