{"id":15759116,"url":"https://github.com/nwtgck/open-union-sugar-haskell","last_synced_at":"2025-03-31T08:48:38.011Z","repository":{"id":87735827,"uuid":"121931896","full_name":"nwtgck/open-union-sugar-haskell","owner":"nwtgck","description":"Syntactic sugar for open-union","archived":false,"fork":false,"pushed_at":"2018-04-21T02:37:46.000Z","size":22,"stargazers_count":0,"open_issues_count":0,"forks_count":0,"subscribers_count":3,"default_branch":"develop","last_synced_at":"2025-02-06T13:29:28.612Z","etag":null,"topics":["haskell","haskell-library","open-union","quasiquoter","template-haskell"],"latest_commit_sha":null,"homepage":"","language":"Haskell","has_issues":true,"has_wiki":null,"has_pages":null,"mirror_url":null,"source_name":null,"license":"bsd-3-clause","status":null,"scm":"git","pull_requests_enabled":true,"icon_url":"https://github.com/nwtgck.png","metadata":{"files":{"readme":"README.md","changelog":"CHANGELOG.md","contributing":null,"funding":null,"license":"LICENSE","code_of_conduct":null,"threat_model":null,"audit":null,"citation":null,"codeowners":null,"security":null,"support":null,"governance":null,"roadmap":null,"authors":null,"dei":null,"publiccode":null,"codemeta":null}},"created_at":"2018-02-18T08:10:49.000Z","updated_at":"2018-05-13T07:55:26.000Z","dependencies_parsed_at":null,"dependency_job_id":"373c03a3-42de-4ea1-bff6-a1d7396c533d","html_url":"https://github.com/nwtgck/open-union-sugar-haskell","commit_stats":{"total_commits":20,"total_committers":1,"mean_commits":20.0,"dds":0.0,"last_synced_commit":"36ba969476afe3e1ed55e575796ea0b3ef2fa96c"},"previous_names":[],"tags_count":3,"template":false,"template_full_name":null,"repository_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/nwtgck%2Fopen-union-sugar-haskell","tags_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/nwtgck%2Fopen-union-sugar-haskell/tags","releases_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/nwtgck%2Fopen-union-sugar-haskell/releases","manifests_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/nwtgck%2Fopen-union-sugar-haskell/manifests","owner_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners/nwtgck","download_url":"https://codeload.github.com/nwtgck/open-union-sugar-haskell/tar.gz/refs/heads/develop","host":{"name":"GitHub","url":"https://github.com","kind":"github","repositories_count":246443527,"owners_count":20778247,"icon_url":"https://github.com/github.png","version":null,"created_at":"2022-05-30T11:31:42.601Z","updated_at":"2022-07-04T15:15:14.044Z","host_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub","repositories_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories","repository_names_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repository_names","owners_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners"}},"keywords":["haskell","haskell-library","open-union","quasiquoter","template-haskell"],"created_at":"2024-10-04T10:03:19.181Z","updated_at":"2025-03-31T08:48:37.989Z","avatar_url":"https://github.com/nwtgck.png","language":"Haskell","funding_links":[],"categories":[],"sub_categories":[],"readme":"# open-union-sugar\n\n| branch | status|\n| --- | --- |\n| [`master`](https://github.com/nwtgck/open-union-sugar-haskell/tree/master) | [![Build Status](https://travis-ci.org/nwtgck/open-union-sugar-haskell.svg?branch=master)](https://travis-ci.org/nwtgck/open-union-sugar-haskell) |\n| [`develop`](https://github.com/nwtgck/open-union-sugar-haskell/tree/develop) | [![Build Status](https://travis-ci.org/nwtgck/open-union-sugar-haskell.svg?branch=develop)](https://travis-ci.org/nwtgck/open-union-sugar-haskell) |\n\nSyntactic sugar for [open-union](https://hackage.haskell.org/package/open-union)\n\n## Install\n\n### For [Stack](https://docs.haskellstack.org/en/stable/README/) users\n\nAdd this library to `extra-deps` in your `stack.yaml` like the following.\n\n```yaml\n...\nextra-deps:\n- git: https://github.com/nwtgck/open-union-sugar-haskell.git\n  commit: 24ad5c35054dc511308bb5186cf17784042c499a\n...\n```\n\nThen, add `open-union-sugar` to your `package.yaml` like the following.\n\n```yaml\n...\nlibrary:\n dependencies:\n - open-union-sugar\n...\n```\n\n## Usage\n\n### `l` quote\n\n```hs\n{-# LANGUAGE DataKinds #-}\n{-# LANGUAGE QuasiQuotes #-}\n\n\nimport Data.OpenUnion\nimport Data.OpenUnion.Sugar\n\nmain :: IO ()\nmain = do\n    let u1 :: Union '[Int, String]\n        u1 = [l|\"hello\"|]\n    print u1\n    -- =\u003e Union (\"hello\" :: [Char])\n```\n\n### `hlist` quote\n\n```hs\n{-# LANGUAGE DataKinds #-}\n{-# LANGUAGE QuasiQuotes #-}\n\n\nimport Data.OpenUnion\nimport Data.OpenUnion.Sugar\n\nmain :: IO ()\nmain = do\n    let hlist1 :: [Union '[Char, Bool, String]]\n        hlist1 = [hlist|\n                    'a'\n                  , True\n                  , \"apple\"\n                  , 'z'\n                  , False\n                  , \"orange\"\n                 |]\n    print hlist1\n    -- =\u003e [Union ('a' :: Char),Union (True :: Bool),Union (\"apple\" :: [Char]),Union ('z' :: Char),Union (False :: Bool),Union (\"orange\" :: [Char])]\n```\n\n\n### `ptn` quote\n\n```hs\n{-# LANGUAGE DataKinds #-}\n{-# LANGUAGE QuasiQuotes #-}\n{-# LANGUAGE ScopedTypeVariables #-}\n\nimport Data.OpenUnion\nimport Data.OpenUnion.Sugar\n\ntype UnitList = [()]\n\nshowMyUnion :: Union '[Char, Int, String, UnitList] -\u003e String\n[ptn|\nshowMyUnion (c :: Char)     = \"char: \" ++ show c\nshowMyUnion (i :: Int)      = \"int: \" ++ show i\nshowMyUnion (s :: String)   = \"string: \" ++ s\nshowMyUnion (l :: UnitList) = \"list length: \" ++ show (length l)\n|]\n\n\nmain :: IO ()\nmain = do\n    let u1 :: Union '[Char, Int, String, UnitList]\n        u1 = [l|\"hello\"|]\n    putStrLn (showMyUnion u1)\n    -- =\u003e string: hello\n\n    let u2 :: Union '[Char, Int, String, UnitList]\n        u2 = [l|189 :: Int|]\n    putStrLn (showMyUnion u2)\n    -- =\u003e int: 189\n```","project_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Fnwtgck%2Fopen-union-sugar-haskell","html_url":"https://awesome.ecosyste.ms/projects/github.com%2Fnwtgck%2Fopen-union-sugar-haskell","lists_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Fnwtgck%2Fopen-union-sugar-haskell/lists"}