suside

let UnionToString (u: 'a) =
    match FSharpValue.GetUnionFields(u, typeof<'a>) with
    | case, _ -> case.Name

let StringToUnion<'a> (s: string) =
    match FSharpType.GetUnionCases typeof<'a> |> Array.filter (fun case -> case.Name = s) with
    | [| case |] -> FSharpValue.MakeUnion(case, [||]) :?> 'a
    | _ -> failwithf "Unable to parse %A" s

type UnionStringSerializer<'a>() =

suside

#!/usr/bin/env python3
"""
Migrate GPaste history to CopyQ.
Reads GPaste history format (UUID: content with multiline support)
and imports each entry into CopyQ using its CLI.
"""

import subprocess
import re
import sys