Skip to content

Instantly share code, notes, and snippets.

@nrolland
Created June 6, 2016 14:32
Show Gist options
  • Save nrolland/a0b3f09a55c89d1d606783dbe542ef93 to your computer and use it in GitHub Desktop.
Save nrolland/a0b3f09a55c89d1d606783dbe542ef93 to your computer and use it in GitHub Desktop.
#!/usr/bin/env stack
-- stack --install-ghc --resolver lts-6.1 runghc --package http-conduit
{-# LANGUAGE TypeFamilies, UndecidableInstances #-}
module HangGhc where
type family List a :: *
type instance List a = Either () (a, List a)
-- Hangs ghc 6.12.1:
nil :: List a
nil = Left ()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment